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Music Maker est un ensemble qui fait usage d’un clavier à deux 
octaves installé sur un Commodore 64. Le but? Tirer un meilleur parti 
des possibilités sonores du micro-ordinateur. 


Les ordinateurs personnels sont souvent pourvus 
de possibilités techniques qui laissent véritable- 
ment espérer la création de périphériques spécia- 
lisés. C’est particulièrement vrai quant aux capa- 
cités graphiques et sonores de ces appareils pour 
lesquels de nombreux « additifs » ont déjà été 
construits. On sait que le Commodore 64, pour- 
tant équipé d’une puce sonore très sophistiquée, 
ne dispose d’aucune commande BASIC qui per- 
mette d’en tirer parti! On a donc vu apparaître 
de très nombreux logiciels de création musicale, 
souvent excellents, mais qui doivent être mis en 
œuvre à partir du clavier de l’appareil, de type 
machine à écrire. Il serait très intéressant, et plus 
pratique, de se servir du 64 comme d’un piano. 
C'est précisément ce que Music Maker entend 
rendre possible. 

Il comprend d’abord un cache en plastique, 
qu’il faut installer sur le corps de l’appareil, 
autour du clavier de base et des touches de fonc- 
tion. Ce cache comporte, en sa partie centrale, 
des touches de piano qui viennent s’insérer sur 
les touches alphanumériques, grâce à une série 
d’ergots. Toute pression est donc répercutée 
jusqu’à l’unité centrale du 64. C’est une méthode 
assez primitive, mais qui a l’avantage d’être peu 
coûteuse et très fiable : il est rare de manquer une 
note, même en jouant très vite. Ce clavier piano 
se limite cependant à deux octaves. 


Lelogiciel d'accompagnement 


Il existe en version cassette ou disquette. Le pro- 
gramme est commandé par menu, et met à contri- 
bution les touches de fonction. L'utilisateur peut 
modifier les sons produits en changeant sa hau- 
teur, ou sa forme d’onde. Un rythme de basse 
et des percussions peuvent servir d’accompagne- 
ment ; un séquenceur permet de programmer des 
mélodies, puis de les exécuter. Tout comme les 
sons eux-mêmes, elles peuvent être stockées sur 
cassette ou disquette, puis chargées en mémoire 
à la demande. 

Chacune des voix peut être définie de façon à 
produire tel ou tel effet sonore. L’option F6 
détermine celle qui sera modifiée. Après quoi, il 
faut sélectionner les paramètres (entre 0 et 15) 
attribués à l’attaque, au déclin, au soutien et à 
la relâche : ils définissent le timbre particulier 
d’un son. Le programme vous demandera ensuite 
si vous comptez faire usage des filtres (qui sup- 
priment certaines fréquences sonores). En cas de 
réponse positive, il voudra aussi savoir quels sont 
les réglages nécessaires. 


Music Maker comprend 
_un clavier en plastique 

qui se fixe sur 

l'ordinateur de façon 

à être en contact 


avec les touches 
alphanumériques, et d'un 
logiciel qui gère la 
production des sons et 
des notes. Les touches 
de fonction restent 
accessibles, car ce sont 
elles qui permettent 

la programmation 
proprement dite. Les 
résultats sont d'une 


Le séquenceur est un élément important dans 
la création de musique sur ordinateur. Pourtant 
bien des logiciels musicaux le laissent de côté. Il 
joue une séquence de notes qu’il répète; sa pro- 
grammation se fait en deux temps. Il faut d’abord 
entrer toutes les notes qui composent l’ensemble 
de la mélodie à l’aide du clavier du piano; 
ensuite, il est nécessaire de fixer la durée de cha- 
cune d’elles (donc le rythme de l’ensemble) en 
appuyant sur la touche F. 
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MUSIC MAKER 


* * 
LOGICIEL 


Disponible sur cassette 
ou sur disquette. 


DOCUMENTATION 


Music Maker est 
accompagné de deux 
manuels. Le premier 
donne tous les*conseils 
nécessaires à une bonne 
mise en route, mais, avec 
un peu d'expérience, il 
arrive un moment où l'on 
aurait besoin de plus de 
précisions. Le second se 
réduit à un ensemble de 
partitions de chansons à 
succès. 


Does | 


D'un prix raisonnable, 
Music Maker est un 
ensemble très intéressant 
qui permet d'utiliser le 
Commodore 64 comme 
un véritable instrument 
de musique. 


FAIBLESSES 


L'éventail des options 
reste très limité, surtout 
au niveau de la section 
rythmique (basse et 
percussion). 


Voici l'option séquenceur 


de Music Maker, telle 
qu'elle est présentée à 
l'écran. 


Le menu affiche les six 
options disponibles. 
Notez qu'il faut entrer 
séparément les notes à 
jouer et leur durée. 


æ 
CA 
Là 


L'utilisateur a 
sélectionné ici le mode 
enregistrement, et non 
le mode playback. 


Voici (en notation 


anglaise : C = do) le 
nom de chacune des 
notes du clavier 
musical. 
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Les trois rythmes de percussion. disponibles 
sont un peu limités mais assez bien choisis. Les 
rythmes de la basse suivent ceux des percussions, 
bien qu’on puisse en modifier la hauteur, ou la 
supprimer complètement. En gros, selon le 
rythme choisi, le décalage varie d’une quinte ou 
d’une octave entière. Les touches curseur accé- 
lèrent ou ralentissent le tempo suivant le sens 
désiré. 

Malheureusement, bien des options sont 
incompatibles les unes avec les autres. Si basse 
et percussion jouent simultanément, il n’est pos- 
sible de se servir du clavier qu’en mode mono- 
phonique. Il est donc impossible de jouer des 
accords avec le rythme en fond sonore. 

Cela est aussi vrai pour le séquenceur. Bien des 
groupes New Wave ont renoncé à se doter d’une 
section rythmique (batterie), ou, plutôt, confient 
ce soin à un appareil électronique. Cela n’est pas 
envisageable avec Music Maker — le séquenceur 
ne peut être accompagné de la basse et de la per- 
cussion. C’est ici le matériel qui est en cause. La 
puce SID {Sound Interface Device) ne dispose que 
de trois voix (plus un canal pour le bruit blanc, 
qui ne peut d’ailleurs être activé en même temps). 
L’appui simultané d’une touche et de la barre 
d’espace permet des effets de glissando — pas- 
sage progressif d’une note à une autre — qui n’est 
pas non plus compatible avec la section rythmi- 
que; mais cette fois, cela est sans doute dû au 
fait que le son produit est de type numérique. 
Obtenir de la basse et de la batterie un change- 
ment suffisamment petit pour fournir un « glis- 
sement » très doux semble hors de portée des 
capacités du processeur. Actuellement, bien 
entendu. Mais beaucoup plus grave, il n’est pas 


possible de reprogrammer la basse et la percus- 
sion, afin de les adapter à des besoins parti- 
culiers. Pourtant, cela n’aurait demandé que le 
recours à des procédés qui sont précisément uti- 
lisés par le séquenceur ; une programmation des 
rythmes selon les besoins aurait donné au logi- 
ciel une richesse bien plus grande. 

Enfin, lorsqu’on joue en « temps réel », on ne 
peut modifier la voix ou l’octave choisie au 
départ. Dans les faits, l’usager est donc effecti- 
vement limité à deux octaves. 


10, * 1 . 
Facilité d'emploi 

Music Maker est vendu avec deux manuels. Le 
guide de l’utilisateur explique comment charger 
le programme et présente très succinctement les 
différentes fonctions. Il n’est pas très riche de 
précisions, mais suffira sans doute pour qui 
débute. Le programme est en effet commandé 
par menu et présente des instructions très clai- 
res, qui permettent de tirer un profit maximal 
des possibilités de l’ensemble. Le second fasci- 
cule explique brièvement les principes de la nota- 
tion musicale, montre comment jouer au clavier, 
et contient les partitions de vingt-huit chansons 
à succès. 

Music Maker est un logiciel intéressant, qui sait 
tirer parti des immenses possibilités sonores du 
Commodore 64. Les débutants apprécieront tout 
particulièrement sa facilité d'emploi. Les autres 
estimeront peut-être qu’il manque de souplesse, 
et que le clavier se prête mal à la création d’effets 
un tant soit peu complexes. Il représente pour- 
tant un investissement profitable pour ne 
se sent une âme de compositeur. 


SE GORE CN ETE 


RECORD NOTES 

RECORD TIME 
<F72 STOP 
(F8) 


(F1) 
<F32 


{F2 DELETE NOTE 
<F52 PLAYBACK 


L'indication Step 
Number précise 
combien de notes ont 
déjà été mises en 
émoire par le 
séquenceur. 


EXIT TO MENU 
UT PT NN ve € ne 


ne, 

Nom des notes déjà 
mises en mémoire 
(A = Ja). 


LE, 


n curseur bleu se 
déplace sur le clavier 
pour indiquer quelle est 
la note jouée à chaque 
exécution. 


La multiplication des traitements informatisés, leur aspect de plus en 
plus décentralisé et leur ouverture à une population plus nombreuse 
ont fait naître une forme de criminalité : la fraude informatique. 


L'ordinateur a transformé la vie des entreprises, 
comme il bouleverse déjà celle des individus. Il 
a aussi entraîné une nouvelle forme de crimina- 
lité, que l’on qualifie souvent de « délinquance 
en col blanc ». 

La fraude informatique a, en effet, connu ces 
dernières années un important développement, 
l’imagination et le savoir-faire des fraudeurs évo- 
luant presque aussi rapidement que les techni- 
ques. Qu’elle porte sur des escroqueries ou sur 
des détournements d’informations de grande 
valeur, la fraude informatique peut avoir de très 
graves conséquences pour les utilisateurs de systè- 
mes informatiques et, en première ligne, pour les 
entreprises. 

C’est pourquoi celles-ci se sont intéressées de 
plus en plus près à ce qu’on appelle la « sécurité 
informatique » et à toutes les techniques de pro- 
tection, aussi bien du matériel que du logiciel, 
afin de mettre à l’abri des biens qui représentent 
la plupart du temps un très lourd investissement 
en temps, en argent et en connaissances. 

A l'instar d’un appartement ou de tout autre 
bien mobilier ou immobilier, le système informa- 
tique doit donc être protégé contre l’effraction. 
Pourtant, cette protection n’est pas aussi simple 
à réaliser qu’une porte blindée ou une alarme 
antivol dans un appartement. Beaucoup de per- 
sonnes doivent avoir souvent accès à l’ordinateur 
et, par le biais des télécommunications, l’ensem- 
ble des individus concernés par un système infor- 
matique donné est fort difficile à circonscrire. 

Par ailleurs, la sécurité informatique est encore 
auréolée d’un certain flou provenant de l’absence 
d’une véritable définition de la fraude informa- 
tique en tant que concept. La relation entre les 
deux domaines distincts que sont l’informatique 
et la délinquance est, en effet, peu aisée à définir. 

De plus, le fraudeur informatique jouit, aux 
yeux de l’homme de la rue, d’un certain prestige : 
il est souvent considéré comme un petit malin, 
sinon comme /e héros des temps modernes, tel 
qu’il est incarné dans le film War Games. Cette 
représentation peut s’expliquer par une certaine 
inquiétude vis-à-vis de l’informatique, dont le 
développement est si rapide que la technologie 
est souvent mal maîtrisée et ses conséquences mal 
appréhendées : certains craignent d’être dépas- 
sés par l’informatique, d’autres sentent peser une 
menace sur leurs libertés individuelles. Enfin, 
les victimes, elles-mêmes, de la délinquance infor- 
matique semblent relativement démotivées : elles 
paraissent avoir parfois plus à perdre qu’à gagner 
en dénonçant publiquement les fraudeurs. 


Sur le plan juridique, le champ d’étude s’avère 
donc particulièrement étendu. En premier lieu, 
il y a la falsification de données. Il s’agit de frau- 
des, généralement financières, commises par alté- 
ration des données numériques composant des 
fichiers ou des programmes. La falsification peut 
être simple, notamment lorsque le fraudeur se 
contente d’utiliser le système existant en le vouant 
à un objet illicite. Mais elle peut être complexe 
lorsque le fraudeur crée lui-même des program- 
mes ou des fichiers. Ces fraudes nécessitent une 
très bonne connaissance du système informati- 
queet, plus généralement, du système d’informa- 
tion et du contrôle interne de l’organisation visée. 
De nombreux experts considèrent que seules ces 
fraudes peuvent être qualifiées d’informatiques. 

Une autre catégorie porte sur la fraude assis- 
tée par ordinateur. Il s’agit là de fraudes « clas- 
siques », perfectionnées grâce à l’ordinateur, 
instrument performant dont l’utilité ne saurait 
échapper aux délinquants. Entrent notamment 
dans cette catégorie la tenue de fausses compta- 
bilités par des dirigeants d’entreprises et la 
création de faux documents par la délinquance 


Matra 


La protection des logiciels 
Deux attitudes extrêmes 
s'affrontent sur le terrain 
de la protection des 
logiciels : celle de Bill 
Gates, de Microsoft, qui, 
jusqu'au début de 1983, 
ne voyait aucun 
inconvénient aux 
recopies de logiciel, car 
cela avait, selon lui, pour 
effet d'élargir le marché 
dans des secteurs jugés 
non solvables (en avril 
1983, Microsoft n'avait 
engagé qu’un seul procès 
au Japon); et l’attitude 
de Micropro, qui 
consistait à multiplier 
les procès lesquels, 
d’ailleurs, se terminaient 
souvent par des 
non-lieux. 
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organisée. La diffusion des connaissances et des 
matériels informatiques aura pour conséquence 
de banaliser ce type de fraudes. 

En troisième lieu, on distingue le vol de servi- 
ces ou d’informations techniques ou commercia- 
les. Initialement, il s’agissait d'employés utilisant 
à des fins personnelles les ressources informati- 
ques de leur entreprise. Le vol de services s’est 
maintenant étendu, du fait de la mise à la dispo- 
sition du public de services informatisés toujours 
plus nombreux et plus accessibles. Certaines frau- 
des sont, en effet, désormais à la portée d’un 
enfant : interrogation non autorisée de banques 
de données à partir de réseaux publics, et singu- 
lièrement de terminaux Minitel, utilisation de 
réseaux ou de « temps-machine » sur le compte 
d’un tiers. Cela résulte pour partie d’une confu- 
sion entre l’informatique ludique et l’informati- 
que professionnelle, entre la convivialité et la 
permissivité. 

Enfin intervient le sabotage. Dans la mesure 
où l’informatique constitue un élément clé de 
l’entreprise, elle sera toujours une cible poten- 
tielle pour le sabotage. Cependant, l’informati- 
que semble déjà moins vulnérable qu’elle ne l’a 
été vis-à-vis de ce type de délinquance. 

La copie de fichiers ou de programmes cons- 
titue, quant à elle, une fraude informatique déjà 
ancienne. Elle a d’abord posé le problème de la 
définition et de la protection des données dites 
« sensibles », notamment les données nominati- 
ves et les secrets de fabrication. Elle connaît 
aujourd’hui un grand développement à travers 
la copie de produits commercialisés, et en parti- 
culier des progiciels pour micro-ordinateurs. 


L’enjeu se situe actuellement au niveau juridique. 
Dans ce domaine, la situation est encore incer- 
taine et préoccupe les éditeurs de logiciels. En 
l’état actuel des choses, il semblerait que seule 
la protection par le droit d’auteur soit efficace. 
En effet, le droit des brevets ne peut pas s’appli- 
quer : le droit français l’exclut expressément (arti- 
cle 6 de la loi du 2 février 1968, modifié par la 
loi du 13 juillet 1978). Seul, le droit d’auteur peut 
être invoqué comme moyen de protection du logi- 
ciel au plan international. En France, à la suite 
de récentes décisions des tribunaux, la tendance 
est d’estimer que les logiciels, de par leur origi- 
nalité, doivent être considérés comme des œuvres 
protégées par le droit d’auteur. 

Mais il n’est pas évident que cette protection 
soit adéquate. Le Syndicat national de l’édition 
(S.N.E.) estime que la production des logiciels 
grand public (jeux, didacticiels.…) ne se dévelop- 
pera qu’à l’abri d’une protection juridique adé- 
quate, nécessitant donc une modification de la 
loi actuelle sur le droit d’auteur. 

Le système informatique a donc globalement 
trois relations possibles avec la fraude : il peut 
être un but, un environnement ou un moyen. 


Ex 


L'ordinateur devient un but lorsque le délinquant 
cherche à s’approprier matériels, programmes, 
fichiers ou temps de traitement pour les conver- 
tir en gains financiers. 

L'environnement, quant à lui, est important 
pour ceux dont la fraude s’appuie sur des 
connaissances et des droits d’accès privilégiés, 
donc le plus souvent les employés d’un service. 
Néanmoins, des groupes externes ont souvent 
profité de l’environnement pour atteindre leurs 
buts (étudiants, terroristes, etc.). 

Enfin, l'informatique comme moyen de 
perpétrer une fraude est comparable à une clé, 
et permet d’entrer dans un système sans laisser 
la moindre trace. Sont particulièrement visées les 
organisations dont l’information se rapporte à 
l'argent, les banques notamment, où les modifi- 
cations illicites de fichiers sont parmi les plus 
fréquentes. 

Pour faire face à la fraude informatique, il est 
nécessaire, surtout aux entreprises, pour lesquel- 
les l’enjeu est vital, de bien connaître les risques, 
d’être informé des protections juridiques, de ne 
pas négliger les possibilités d’assurance et, sur- 
tout, de se tenir au fait des techniques disponi- 


—— 


Le marché LA 


bles pour décourager, freiner ou détecter le pro- 
cessus frauduleux. 

Tout d’abord, il faut faire un diagnostic sûr 
de la sécurité des installations et applications 
informatiques. Puis, le cas échéant, il faut défi- 
nir des mesures appropriées pour améliorer cette 
sécurité, ainsi que pour prévenir et détecter des 
actes frauduleux. Enfin, il faudra organiser ces 
mesures en plan d’action et mettre en place le 
suivi de ce plan. Pour tout cela, deux éléments 
s’avèrent essentiels : une méthodologie et des 
moyens humains adéquats. 

La méthodologie commence par la définition 
claire du périmètre et des objectifs de la protec- 
tion. Elle porte ensuite sur l’évaluation de la sécu- 
rité de l’environnement informatique général, le 
contrôle des accès et celui des applications. 

L’aspect humain consiste, pour une entreprise, 
à faire appel à des auditeurs-conseils. Leur action 
est plus souvent orientée vers la prévention des 
risques que vers la détection des fraudes. Mais, 
du fait de leurs acquis techniques et méthodolo- 
giques, ils se positionnent aussi comme de très 
précieux auxiliaires lorsqu'il s’agit d’intervenir 
après l’« accident ». 


RS D À 


Le film War Games 

a rendu le fraudeur 
informatique 
sympathique. Les petits 
malins sont devenus 
les héros des 

temps modernes. 

(Coll. G. Troussier.) 
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La programmation de notre jeu d’aventures touche à sa fin. Voyons 
comment traiter les deux derniers lieux spéciaux de la Forêt hantée, 
le marais et le village, et achevons le listage de Digitaya. 


Il y a dans la Forêt hantée deux endroits qui res- 
tent à analyser : le village et le marais. Inté- 
ressons-nous d’abord à ce dernier. N’oubliez pas 
qu’avant toute programmation proprement dite 
il faut décider d’une intrigue précise, qui intègrera 
tous les lieux dont elle a besoin. Il n’est pas néces- 
saire qu’elle soit très complexe, mais chaque 
endroit, si on veut l’exploiter à fond, exigera 
beaucoup d’efforts — et consommera énormé- 
ment d’espace mémoire! 


Le marais 


Les règles de base sont les suivantes : dès que le 
joueur pénètre dans le marais, il s’y enfonce. Il 
peut toujours faire usage des commandes nor- 
males; mais il lui est impossible de sortir de là. 
Une seule solution — nager. Mais cela n’est 
possible que si l’on transporte avec soi moins de 
deux objets. Pour échapper à la noyade, il sera 
donc parfois obligatoire de se débarrasser de l’un 
d’eux. Chaque objet abandonné dans le marais 
est, dans ce cas, définitivement perdu. 


4870 REM kw S/P MARAIS #tk 
4875 SF=1 
4880 SNé="VOUS VOUS ENFONCEZ DANS LE MARAIS" :GO0OSUB 


4885 PRINT: INPUT" INSTRUCTIONS"3:1S$ 

4890 GOSUB2S00:REM ANALYSE REPONSES 

4895 IF F=@ THEN 4885S:REM NON VALABLE 

49300 GOSUBSOO0:REM COMMANDES NORMALES 

4910 IF VB$="REGARDER" THENGOSUB2000:G0TO488S 

4915 IF VB#$="LAISSER"THEN IV#(F, 2)="-2":REM OBJET PERDU 
POUR DE BON 

4917 IF VF=1 THEN 4885:REM COMMANDE NORMALE 

4920 REM + NOUVELLES COMMANDES #* 

4925 IF VB$ "NAGER"THEN SN$="JE NE COMPRENDS PAS": 
GOSUBSS00: GOTO488S 

493D REM x NAGER “x 

49332 F=0 

49335 FOR 1=1 TO 2 

4940 IF IC$CI) “""THEN F=F+1 

49350 NEXT I 

4955 1F F 2 THENGOSUBSOSS: RETURN: REM FUITE À LA NAGE 
4960 GOSUB S000:RETURN:REM POSSESSION 2 OBJETS 

S000 REM *ek S/P 2 OBJETS #4wx 

S010 SN$="LES OBJETS VOUS ALOURDISSENT ET VOUS COULEZ 
PEU À PEU" :GOSUBSS500 

S012 PRINT: INPUT" INSTRUCTIONS"3:1S$ 

S015 GOSUB2S00:REM ANALYSE REPONSE 

IF VBS$ "LAISSER" THENGOSUBSG80:REM ON COULE ! 
GOSUBSS00: IVS(F, 2)="-2":REM LAISSER OBJET 

IF HF=0 OR F=Q THEN SO8G:REM ON COULE ! 

REM #wk FUITE À LA NAGE #4 

SN$="VOUS NAGEZ A TRAVERS LE MARAIS. OU VOULEZ. 
ALLER ?“:GOSUBS500 
EX$(2)="D008060S":GOSUB2300:REM LES SORTIES POSSIBLES 
PRINT # INPUT" INSTRUCTIONS":1S$ 

GOSUB2S00:REM ANALYSE REPONSE 

IF F=0 THEN SOSS:REM NON VALABLE 

GOSUBSSO0:REM DE PLACEMENT 
EXS(2)="D0000000":REM AUCUNE SORTIE 

RETURN 

: 

REM #*t* S/P ON COULE ! #ks 


5085 SN$="VOUS COULEZ ET VOUS VOUS NOYEZ AVEC ELEGANCE" GOSUB 
Ss20 
S0S0 END 


Les lignes 4870 à 4917 permettent un recours aux 
commandes classiques et font usage de routines 
déjà définies. Si, dès l’entrée dans le marais, le 
joueur décide de se séparer d’un objet, la rou- 
tine LAISSER s’en chargera. Mais elle le replacera 
dans l’inventaire principal, |V${), en se servant de 
la valeur actuelle de P (le pointeur de position). 
Cela veut dire que, pour le programme, l’objet 
se trouve désormais dans le marais. Si nous vou- 
lons qu’il disparaisse à jamais, nous allons devoir 
modifier l’entrée correspondante en |Vil,). 

IV$(F,2) garde en mémoire la position de l’objet 
F. Il contient généralement le numéro attribué à 
l'endroit en question; il peut être aussi d’une 
valeur de — 1 si l’objet est transporté par le 
joueur. Pour que celui-ci ne puisse plus jamais 
le retrouver, il faut que |V${F,2) ne soit plus inter- 
prété de cette manière. La ligne 4915 lui affecte 
donc la valeur — 2. F a déjà été spécifié grâce à 
la routine LAISSER. 

Le joueur peut aussi décider de NAGER, et le 
programme passe alors à la ligne 4930. Le pro- 
gramme vérifie d’abord quels sont les objets qu’il 
emmène avec lui. S’il en a moins de deux, il lui 
est aussitôt possible de nager et de quitter le 
marais. Si ce n’est pas le cas, il a encore la 
ressource d’en abandonner un; s’il néglige de le 
faire, il coule et se noie. 

La routine NAGER permet au joueur de s’en 
sortir, et de préciser dans quelle direction il veut 
aller. A l’origine, le chiffre contenu en DATA est 
000000, indiquant qu’il n’existe aucune sortie. La 
ligne 5050 change tout cela et renvoie à la rou- 
tine chargée d’indiquer les directions possibles. 
Le malheureux peut donc faire un choix parmi 
ces issues et quitter le marais. La ligne 5087 remet 
tout à zéro; en cas de passage ultérieur dans le 
marais, il n’aura plus de moyen de s’en tirer. 


Le village 


C’est en le traversant que le joueur pourra quit- 
ter la Forêt hantée; mais il n’est pas encore au 
bout de ses peines. En effet, les règles sont les 
suivantes : 

— le village est entouré d’un mur apparem- 
ment infranchissable ; 

— la seule porte qui existe est surveillée par un 
garde; 

— celui-ci devra être tué avec le fusil si le 
joueur veut entrer. 


Une fois l’opération réalisée, il sera nécessaire 
d’ouvrir la porte avec la clé. 
Il faut donc distinguer deux parties dans le pro- 
gramme « Village » : d’abord, il s’agit de trou- 
ver une solution au danger que représente le 
garde; ensuite, il est nécessaire que la porte soit 
ouverte. On peut très bien envisager un scénario 
dans lequel le joueur, muni du fusil, arrive au 
village et tue le garde. Mais il se rend alors 
compte qu’une clé est nécessaire pour ouvrir la 
porte. Si le joueur en question ne dispose pas de 
la clé, il devra alors faire demi-tour pour partir 
à sa recherche. 


Une seule fois! 


Si, au retour du joueur, la description du village 
est la même qu'auparavant — c’est-à-dire que le 
garde est encore présent — cela n’aurait plus 
aucun sens. 


S100 REM #*wkx S/P VILLAGE + 

S102 SF=1 

5105 SN$="LE VILLAGE EST ENTOURE D’ UN GRAND 

MUR. " : GOSUBSS0Q 

S106 IF GF © THEN GOSUBS190:RETURN:REM PORTE 

5107 SN$="IL Y A UN GARDE A LA PORTE D’ ENTREE": GOSUBSSOO 
S115 PRINT: INPUT" INSTRUCTIONS":1S$ 

5120 GOSUB2500:1F F=Q THEN S5S115:REM NON VALABLE 

5125 GOSUB3OO0:REM INSTRUCTIONS NORMALES 

5130 IF VB$="REGARDER" THEN GOSUB2000:REM DESCRIPTION 
5135 IF VB$="ALLER" AND MF=1 THEN RETURN 

5140 IF VF=1 THEN S115:REM INSTRUCTION SUIVANTE 

5145 IF VB$ "TUER" THENSN$=JE NE COMPRENDS PAS": 
GOSUB5500:GOTOS115 

5150 REM #* TUER #* 

5155 SN$="TUER LE GARDE ? AVEC QUOI ?":GO0OSUBSS00 
S160 SN$="ENTREZ UN OBJET OU I COMME INSTRUCTION": 
GOSUBSS00 

5162 INPUT IS$:1F 1S$="1" THEN 5115 

S165 GOSUB2500:REM ANALYSE 

5167 IF F=@ THEN S16Q:REM NON VALABLE 

5170 GOSUBSSO0:1IF F=Q THEN SN$="JE N'EN VOIS PAS": 
GOSUBS500: GOTOS160 

5172 OV=F:GOSUBS4SQ:REM OBJET POSSEDE ? 

S174 IF HF=0 THEN SN$="VOUS N'EN N’'AVEZ PAS":GOSUBSSD0: 
G0TOS160 

5175 IF F 1 THEN SN$="AUCUN INTERET !" 
:G0SUBSS00 : GOTOS 160 

5180 SN$="VOUS TUEZ LE GARDE" :GOSUBSSO0:GF=1 

5185 : 

5190 REM kr S/P PORTE FERMEE *%%x 

5195 SN$="VOUS AVANCEZ ET ESSAYEZ D’ OUVRIR LA PORTE" 
5200 SN$=SN$+"MAIS ELLE EST FERMEE ET REFUSE DE S' OUVRIR": 
GOSUBSS20 

5205 PRINT: INPUT"INSTRUCTIONS";15$ 

5210 GOSUB2S00:1F F=Q THEN S205:REM NON VALABLE 

5215 GOSUBT000:REM INSTRUCTIONS NORMALES 

5220 IF VB$="REGARDER"THEN GOSUB2000:REM DESCRIPTION 
S225 IF VB$="ALLER" AND MF=1 THEN RETURN 

S230 1F VF=1 THEN S205:REM INSTRUCTION SUIVANTE 

5232 IF VB$="UTILISER" THEN 5240 

5234 IF VB$="OUVRIR" THENSN$="ET COMMENT ?" :GOSUBSS00: 
GOTOS205 

5235 SN$="JE NE COMPRENDS PAS" :G0SUBSS00:GOTOS205 
S240 GOSUBS3SOG:REM OBJET VALABLE 

5242 OV=F:GOSUBS4SQ:REM OBJET TRANSPORTE ? 

S244 IF F=@ THEN SN$="IL N'Y EN A PAS !":GO0SUBSSO0: 


GOTO05205 

5246 IF HF=Q THEN SN$="VOUS NE L'AVEZ PAS !"“:GOSUBSS520: 
GOTOS205 

5248 IF F 3 THEN SN$="AUCUN INTERET PRATIQUE... ":GOSUB 
S500:G60T0520S 


5250 REM ## SAUVE ! #* 

5255 SN$="VOUS OUVREZ LA PORTE, ET, REVETEZ DES HABITS 
DU GARDE" 

S260 SN$=SN$+"VOUS TRAVERSEZ LE VILLAGE" :GOSUBSS20 
5270 END 


Un aspect particulier du jeu consiste donc à 
faire en sorte que les différents éléments du jeu 
ne se reproduisent qu’une seule fois. Si le garde 
a été tué, cette « caractéristique » doit être enre- 
gistrée une fois pour toute dans la description du 
village. 

La difficulté est plus apparente que réelle. II 
suffit d’utiliser une variable qui précisera si le 
garde est ou non vivant. Appelons-là GF, et 
donnons-lui une valeur de 0 s’il est vivant, de 1 
s’il est tué. Quand le joueur entrera dans le vil- 
lage, il faudra donc d’abord que le programme 
prenne connaissance de cette valeur. 

La suite des événements présente moins de pro- 
blèmes. Le joueur se dirige vers la porte. S’il a 
la clé et s’en sert pour l’ouvrir, il a réussi et quitte 
l’univers périlleux de la Forêt hantée. Sinon, rien 
n’est encore joué. 

Pour mettre en œuvre nos deux dernières rou- 
tines, il faut modifier, ligne 2720, la routine qui 
s’assure qu’un lieu présente ou non quelque chose 
de spécial. Une seule ligne suffit : 

2720 ON P GOSUB 4590, 4870, 5100, 4590 


Variantes de basic 


LE 

Dans la Forêt hantée, remplacez SW par S$, 
1S$ par T$, VB$ par B$, IV${) par VS), EXS{ par: XS{I 
et ICS} par IS{. 

Procédez aux changements de lignes 
suivants : 


2720 IF P=1 THEN GOSUB 4590 
2722 IF P=2 THEN GOSUB 4870 
2724 \F P=3 THEN GOSUB 5100 
2726 \F P=4 THEN GOSUB 4590 


4937 LET A$=IC$(N:GOSUB7000 
4940 IF A$<> «THEN LET F=F+1 


5175 IF F<>1 THEN LET S$=«CELA» 
:LET A$=VS(F,11:GOSUB7000 

5177 IF F<>1 THEN LET S$=S$+4NE SERVIRA À RIEN» 
:GOSUB5500:G0TO5160 pe 


5248 IF F<>3 THEN LET S$=«CELA» 
:LET A$=VS(F,1}:GOSUB7000 

5249 IF F<>3 THEN LET S$=S$+«NE SERVIRA À RIEN» 
:GOSUB5500:G0T05205 


Dans Digitaya, remplacez SN\$ par Si, IS$ par 
1$, VB$ par B$, IV${,) par VS) et IC${) par IS. 
Changez ces lignes : 


3650 LET S$=«CELA»:LET A$=VSIF, 1): 
GOSUB 7000 
3655 LET S$=S$+4NE SERT À RIEN, LA FORCE AUGMENTE)» 


4520 LET V$4,2)= STRSIINTIRND(1) *40+8) 


BBC Micro : 
Insérez cette ligne dans la Forêt hantée : 


190 LET GF=0 
Insérez cette ligne dans Digitaya : 
4520 1V$(4,2)= RND(40) +8 
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Listage Digitaya 


2960 REM ###* S/P PORT UTILISATEUR ###%% 

2970 SF=1 

2980 SN$="VOUS ETES PRESQUE TIRE D'AFFAIRE MAIS UN 

EMPLOYE" 

2990 SN$=SN$+"VOUS BARRE LA ROUTE ET DIT QU’IL A POUR 

INSTRUCTIONS" 

3000 SN$=SN$+"DE N' ACCEPTER QUE DES ENTRÉES. MAIS IL 

ACCEPTE" 

3010 SN$=SN$+"TOUTES LES CARTES DE CREDIT" 
GOSUBSS80:REM FORMATAGE 


PRINT 3 INPUT" INSTRUCTIONS" 315$ 
GOSUB1700:REM ANALYSE REPONSE 
GOSUB1900:REM ACTIONS NORMALES 
IF MF=1 THEN RETURN:REM DEMI-TOUR 
IF VF=1 THENSQAG:REM INSTRUCTION SUIVANTE 
IF VB$ "DONNER" THENPRINT "JE NE COMPRENDS PAS": 
GOTO:040 
3100 : 
3110 REM #*, INSTRUCTION DONNER **# 
3120 GOSUBS730:REM OBJET ACCEPTABLE ? 
3130 IFF=OTHENPRINT “IL N'Y EN N'A PAS":G60T03040:REM 
INSTRUCTION SUIVANTE 
3140 : 
3150 REM ** CARTE CREDIT ? #* 
3160 IF F STHENPRINT"IL N’ ACCEPTE QUE LES CARTES 
DE CREDIT":GOT03240 
7170 : 
3180 REM **# CARTE POSSEDEE ? # 
3190 0V=5:GOSUBSS830 
3200 IFHF=OTHENPRINT"VOUS N'EN N'AVEZ PAS !":G0T0 3049 
3210 : 
SN$="L' EMPLOYE PREND LA CARTE ET VOUS REMERCIE" 
GOSUBSE80:REM FORMATAGE 
SN$="VOUS PASSEZ LA BARRIERE ET ENTREZ DANS LE 
UTILISATEUR" 
GOSUBSE80:REM FORMATAGE 
2 
REM ## DIGITAYA ? #* 
OV=6: GOSUBS83:0 
IF HF=1 THEN 3S380:REM GAGNE 
i 
3310 REM %* PERDU ** 
3320 SN$="VOUS ETES SORTI VIVANT DES ENTRAILLES DE 
LA MACHINE" 
3330 SN$=SN$+"MAIS VOUS AVEZ ECHOUE" 
3340 SN$=SN$+"PUISQUE VOUS NE RAMENEZ PAS DIGITAYA" 
3350 GOSUBSS880:REM FORMATAGE 
3360 END 
3370 : 
3380 REM ** GAGNE 
3390 SN$="FELICITATIONS, VOUS AVEZ MENE À BIEN VOTRE 
MISSION" 
SN$S=SN$+ "ET EXTIRPE DIGITAYA" 
SN$=SN$+"DES ENTRAILLES DE LA MACHINE" 
GOSUBSS80:REM FORMATAGE 
END 
Ë 
REM #44 S/P PORT CASSETTE tk 
SF=1 
SN$="UNE FORCE IRRESISTIBLE" 
SN$=SN$+"VOUS SUBMERGE PEU-A-PEU*“ 
GOSUBS880:REM FORMATAGE 
NS=0:REM DENOMBRE LES INSTRUCTIONS 
REM #** INSTRUCTIONS %% 
NS=NS+1:IFNS STHENS770:REM ASPIRE ! 
PRINT: INPUT" INSTRUCTIONS":1S$ 
GOSUB1700:REM ANALYSE INSTRUCTIONS 
GOSUB1S0G:REM ACTIONS NORMALES 


3560 IF MF=1THENMF=Q: PRINT"VOUS NE POUVEZ 
BOUGER" :G0T03510 
3570 IF VF=1THENSSIG:REM INSTRUCTION SUIVANTE 
3580 IF VB$ "UTILISER" THENPRINT "JE NE COMPRENDS 
PAS":G60T03:518 
REM ## INSTRUCTION : UTILISER #* 
GOSUBS730:REM OBJET VALABLE ? 
IFF=OTHENPRINT"IL N'Y EN A PAS !"“:GO0T0351@ 
: 
REM ** OBJET : ACTIVATEUR TAMPON ? #4 
IF F=8 THENSG6S8Q:REM OK 
3650 SN$="CELA NE SERT A RIEN, LA FORCE AUGMENTE" 
3660 GOSUB 5880:G0T03510:REM INSTRUCTION SUIVANTE 
3670 : 
3680 OV=8:G0SUBS830:REM ACTIVATEUR TAMPON ? 
3690 IFHF=OTHENSN$="VOUS N'EN N’'AVEZ PAS !"GOSUBSB80: 
GOTO:510 
3700 : 
3710 REM #* SAUVE ! #x 
3720 SN$="L’ ACTIVATEUR TAMPON S’ OPPOSE A LA FORCE" 
3730 SN$=SN$+"QUI DISPARAIT PEU A PEU" 
3740 GOSUBSESD:REM FORMATAGE 
3750 RETURN 
3760 : 
3770 REM ** ASPIRE VIVANT ! #4 
3780 SN$="LA FORCE EST TROP FORTE ET VOUS ETES 
ASPIRE" 
SN$S=SN$+"A TRAVERS LE PORT CASSETTE DISPARAISSANT 
LE NEANT MAGNETIQUE" 
GOSUB SE80:REM FORMATAGE 
END 
REM wok S/P APPAREIL TROIS ETATS tk 
SF=1 
SN#$="UNE PANCARTE ANNONCE E/S MAIS COMME 
VOUS Y RENDEZ" 
SN$=SNS+"UN CONTROLEUR HURLE TICKET SIOUPLAIT" 
GOSUBS880:REM FORMATAGE 
: 
REM #*# INSTRUCTIONS #*# 
PRINT : INPUT" INSTRUCTIONS"; 1S$ 
GOSUB1700:GO0SUB1900:REM ANALYSE 
4270 IFMF=1 THEN RETURN 
4280 IFVF=1 THENG240:REM "INSTRUCTION SUIVANTE 
4290 IFVB$ “DONNER"ANDVBS$ "OFFRIR'THENPRINT"JE NE 
COMPRENDS PAS":G0OTO04240 
4200 REM x INSTRUCTION : DONNER %*# 
4310 GOSUBS730:REM OBJET VALABLE ? 
4320 IFF=OTHENPRINT"IL N'Y EN A PAS":GOTO04240:REM 
INSTRUCTION SUIVANTE 
4330 : 
4Z4Q REM w* OBJET : TICKET ? wk 
4350 IF F=4 THEN44QQ:REM OK 
4360 SN$="LE CONTROLEUR SECOUE LA TETE ET DIT :" 
4370 SN$S=SN$+"JE NE PEUX ACCEPTER CA" 
4:80 GOSUBSS880:GO0TO04240:REM INSTRUCTION SUIVANTE 
4390 : 
4400 OV=4:GOSUBSSSO:REM TICKET POSSEDE ? 
4410 IFHF=@THENPRINT "VOUS N'AVEZ PAS LE TICKET": 
GOTO4240 
4420 : 
44TD REM ** OK %* 
444Q SN$="LE CONTROLEUR ACCEPTE TICKET ET VOUS PERMET" 
445 SNS=SN$S+"DE FRANCHIR LA BARRIERE" 
GOSUBSS8E0:REM FORMATAGE 
REM #* TICKET SUPPRIME INVENTAIRE “x 
F=0 
FORJ=1TO4 
IF ICSCJ)=1V6C4, 1) THENICSCJ)="" 5: J=4 
4518 NEXT J 
4520 IV#(C4, 2)=STRSCINT(RND(TI)#4@+8)):REM TICKET REPLACE 
AILLEURS 
4530 P=15:MF=1: RETURN 


Bull au standard 


Compatible avec les grands standards internationaux, le Bull Micral 30 
concurrence l’IBM PC sur son propre terrain, tout en étant 
connectable aux autres ordinateurs de Bull. 


Dès l’origine, Bull Micral 30 a été conçu pour 
répondre aux attentes du marché européen et 
mondial, tant il est vrai que Bull entend assumer 
sa responsabilité dans la compétition micro- 
informatique à l’échelle internationale. 

Dans cet esprit, ce produit a été pensé en vue 
de son implantation dans un environnement 
européen. À titre d'exemple, il répond aux nor- 
mes de la République fédérale d’Aïlemagne. II 
dispose également de claviers en six versions 
différentes (française, italienne, espagnole, alle- 
mande, etc.), que le micro-ordinateur est capa- 
ble de reconnaître immédiatement sans interven- 
tion du logiciel. 

Conforme aux standards actuels du marché au 
travers du système d’exploitation MS-DOS, du 
microprocesseur Intel 8088 (celui-là même de 
l’IBM PC), du bus, des interfaces, des mémoi- 
res de masse, du clavier et des codes internes, le 
Bull Micral 30 répond à la demande la plus large 
en faisant bénéficier l’utilisateur d’une part, d’un 
maximum d’équipements diffusés par Bull, tels 
les adaptateurs de communication, la carte à 
mémoire CP8... et, d’autre part, des produits du 
marché développés par des tiers. 

Bull Micral 30 se définit comme « un matériel 
compatible aux configurations multiples ». Ainsi, 
à partir d’une même architecture (cabinetterie, 
alimentation, bus) sont constituées cinq versions 
de base différentes de l’unité centrale. Ces der- 
nières diffèrent par le choix des éléments 
(mémoire de masse et mémoire centrale) qui leur 
sont affectés. La version à 128 K est disponible 
avec un ou deux lecteurs de disquettes de 360 K. 
La version intermédiaire, de 256 K de mémoire, 
dispose d’un lecteur de disquette et d’un disque 
dur (10 méga-octets), ou de deux lecteurs de dis- 
quette. C’est la configuration maximale qui est 
retenue pour la version haut de gamme, avec 
384 K de mémoire. 

Chaque unité centrale Bull Micral 30 est com- 
posée en standard de quatre modules : la carte 
unité centrale, la carte mémoire vive, la carte 
écran/imprimante, et la carte communica- 
tion/mémoires de masse. 

La carte unité centrale est équipée d’un micro- 
processeur 8088 d’Intel, d’une horloge 4,77 MHz 
et de 64 K de mémoire morte (ROM) pour le 
BIOS (logiciel d’environnement entrées-sorties). 
Elle peut disposer en option du coprocesseur 
arithmétique 8087 et offre en standard l'interface 
clavier et un générateur acoustique. 

La carte mémoire vive se présente sous la 
forme d’un module électronique de 128, 256 ou 


384 K. L'augmentation de la capacité mémoire 
centrale se fait soit par substitution de la carte 
mémoire d’origine par une carte ayant une capa- 
cité supérieure, soit par addition d’une seconde 
carte mémoire (maximum 256 K) dès lors que la 
première carte est à capacité maximale (384 K). 
La capacité maximale utilisable est de 640 K 
(384 K + 256 K). 

La carte écran/imprimante permet la 
connexion d’un écran monochrome en mode 
alphanumérique et semi-graphique, et d’une 
imprimante en liaison parallèle type Centronics. 

La carte communication/mémoire de masse 
sert à la connexion d’une ou deux unités de dis- 
quettes intégrées dans le coffret unité centrale et 
d’un disque dur de 10méga-octets lui aussi intégré 
dans l’unité centrale. Un bus au standard SCSI per- 
met de raccorder un coffret disque externe de 
10M. Enfin, uneliaison asynchrone est fournieen 
standard sur cette carte (V24-RS232C). 

Trois modèles d’écrans professionnels peuvent 
être connectés sur les unités centrales Bull 
Micral 30 : soit monochrome à affichage vert ou 
ambre sur fond noir, soit couleur permettant de 
traiter texte et graphiques avec 16 couleurs dis- 
ponibles. En mode texte, ces écrans antireflets 
affichent 25 lignes de 80 caractères avec un cer- 
tain nombre d’attributs : clignotement, secret, 
inverse vidéo, souligné, demi-intensité. Ils dispo- 
sent d’un registre de 256 caractères alphanumé- 
riques et semi-graphiques. Les images graphiques 


peuvent être traitées par l’adjonction d’une carte” 


du commerce; la définition est alors de 
350 X 720 points. 

L'écran couleur est connecté sur l’interface 
RVB. Il admet deux résolutions en mode graphi- 
que : 200 x 320 points et 200 X 640 points. Le 
mode couleur nécessite l’adjonction de la carte 
graphique couleur (option). La taille de l’écran, 
couleur ou monochrome, est de 30 cm (12”). 


Un pionnier 


Jacques Stern, l'actuel 


Président de Bull, est 


une 


des grandes figures de 
l'informatique française. 


Il fut à l'origine d'une 
premières sociétés de 


des 


services en informatique, 


la SESA. 
(Doc. Bull.) 
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BULL MICRAL 30 


De 21 460 F à 
45 220 F H.-T., 
selon la 

configuration. 


À 
, 


8087 (option 
MÉMOIRE 


es cd 
L AFFICHAGE 
ce 


e8 x 8; 


mode graphiq 

200 x 320 points 
ou 200 x 640 points, 
16 couleurs. 
Dimensions : 30 cm 
diagonale (12”). 


LANGAGES DISPONIBLES 
BASIC, GW-BASIC, 
Macro-assembleur, 
PASCAL, COBOL, 
FORTRAN, SOUS 
MS-D0OS. 


FORCES 


Véritablement 
compatible IBM PC, 
conforme aux 
standards 
européens, ouvert à 
la télématique (avec 
notamment 
l'utilisation possible 
de la carte à 
mémoire), vaste 
catalogue de 
logiciels, 
connectable aux 
ordinateurs 
universels de Bull 
ainsi qu'aux grands 
systèmes IBM. 
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Le clavier du micro-ordinateur Bull Micral 30 
est un clavier standard (QWERTY ou AZERTY) 
de 83 touches sur lequel on distingue un bloc cen- 
tral de 58 touches alphanumériques, de signes, 
une touche « CAPS LOCK » équipée d’un 
voyant repère, une touche « ALT » pour géné- 
rer les mots clés du langage BASIC; un bloc de 
15 touches sur la droite regroupant le clavier 
numérique et les commandes curseur, des fonc- 
tions spécifiques et une touche « NUM LOCK » 
équipée d’un voyant repère; un bloc de 10 tou- 
ches de fonctions programmables sur la gauche. 


carte couleur 


Double « univers logiciel » 
giciel 

Le clavier est séparé de l’unité centrale, à laquelle 

il est relié par un cordon spiralé. 

En plus de ses caractéristiques de micro- 
ordinateur professionnel, Bull Micral 30 offre 
aux utilisateurs un double « univers logiciel ». 
MS-DOS, développé par Microsoft pour les 
micro-ordinateurs 16 bits, s’est imposé comme 
un standar et a entraîné le développement d’une 


très importante bibliothèque de logiciels, progi- 
ciels et applications. Prologue est le système 


Matériet °Y 


———— 


Le réseau 

Pour mieux se lancer 

sur le marché 

de la micro-informatique, 
Bull a du mettre sur pied 
un réseau de revendeurs | 
qualifiés représentant 
environ 150 points de 
vente en France. 

(CI. Bull.) 


d’exploitation bien connu des utilisateurs des 
matériels Micral. Par ses puissants moyens de 
gestion et sa compatibilité 8 et 16 bits, Prologue 
a permis le développement de nombreuses appli- 
cations sectorielles et fonctionnelles. 

Les fonctionnalités de communications — 
accès aux bases de données, aux réseaux locaux, 
à la télématique avec, notamment, la carte à 
mémoire — sont rendues possibles par la mise 
à disposition de cartes options, procédures et 
émulations logicielles. Déjà dans sa configuration 
de base, le micro-ordinateur Bull Micral 30 per- 
met de communiquer en mode asynchrone grâce 


à l’interfaceV24-RS232C présente sur la carte 
communication/mémoires de masse. 

Parallèlement à l’annonce de Bull Micral 30, 
le groupe publie un catalogue de logiciels qui pro- 
pose une sélection de cent soixante-sept produits 
parmi les deux mille logiciels les plus réputés. Les 
logiciels sélectionnés ont été soumis à des tests 
standards d’évaluation destinés à vérifier entre 
autres leur fonctionnement sur Bull Micral 30. 
Le catalogue comprend notamment des progiciels 
diffusés sous la marque Bull; citons dBase III, 
Muitiplan, Chart, Framework et Dialogue 2. 

Le Bull Micral 30, fabriqué actuellement à 
Marcq-en-Barœul, dans l’unité de production de 
Bull Transac, capable de répondre à des montées 
en fabrication rapide, est livré aux vendeurs 
agréés de Bull depuis le mois de janvier 1985. Bull 
a, en effet, mis sur pied un réseau de revendeurs 
qualifiés, qui permettra une distribution segmen- 
tée et structurée, et un quadrillage précis du mar- 
ché. En janvier 1985, une cinquantaine de reven- 
deurs représentant cent-vingt à cent-cinquante 
points de vente doivent avoir reçu en France 
l’agrément de commercialisation du produit Bull 
Micral 30. La maintenance sera assurée soit par 
les revendeurs, soit par les services de mainte- 
nance Bull. 

Tout cela permet à la politique de distribution 
élaborée par Bull de prendre en considération non 
seulement la réalité du marché actuel, mais aussi 
celle de son évolution à court et long termes. 
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Liz Dixon 


Trois pavages constitués 


de tuiles hexagonales 


de tuiles en forme 
de triangles équilatéraux 


de tuiles carrées 
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Au bout des lignes 


Le pavage revient à couvrir totalement une surface plane de motifs 
identiques. C’est le cas pour les carreaux des salles d’eau et des 
cuisines. Avec LOGO, assemblons diverses formes. 


Certains polygones réguliers peuvent donner lieu 
à des pavages : les carrés, les triangles équilaté- 
raux et les hexagones (voir ci-contre). Les autres 
polygones ne le permettent pas. Pour le compren- 
dre, prenons un exemple, le pentagone. Un pen- 
tagone régulier a des angles de 108°. Si vous réu- 
nissez trois pentagones autour d’un point central, 
vous n’avez utilisé que 324°, et il reste donc un 
vide. Si vous ajoutez maintenant un quatrième 
pentagone, l’angle total obtenu est de 432°, ce 
qui signifie que les formes se chevauchent. Les 
carrés, les triangles équilatéraux et les hexagones 
s’assemblent parfaitement parce que leurs angles 
(respectivement 90°, 60° et 120°) sont des quo- 
tients exacts de 360°. 

L’écriture de procédures LOGO de pavage est 
très rapide. La meilleure approche est probable- 
ment de tracer le motif à partir du centre pour 
revenir vers le centre. Nous pouvons alors utili- 
ser cette procédure de base dans une « superpro- 
cédure » qui déplace simplement la tortue au cen- 
tre de la nouvelle figure à dessiner. 

Les procédures suivantes dessinent un simple 
motif de carrés. L’assemblage de triangles équi- 
latéraux et d’hexagones se ferait de manière 
similaire. 


POUR PAVAGE 
LÉVEPLUME DONNEXY (100) (90) POSEPLUME 
RÉPÈTE 5 [LIGNEVERTI DONNEXY {- 100) (COORY - 40) 
FIN 


POUR LIGNEVERTI | 
RÉPÈTE 5 [CARRÉ 40 DONNEX COORX + 40] 
FIN 


POUR CARRÉ :C 
LÉVEPLUME GAUCHE 45 
AVANCE :C * (RACINECARRÉE) / 2 
DROITE 135 POSEPLUME 
AVANCE :C DROITE 90 AVANCE :C DROITE 90 
AVANCE :C DROITE 90 AVANCE :C DROITE 90 
LEVEPLUME GAUCHE 135 
RECULE :C * (RACINECARRÉE) / 2 DROITE 45 
FIN 


Les pavages peuvent être obtenus à partir de 
figures bien plus complexes que des polygones 
réguliers. Les assemblages fondés sur des poly- 
gones réguliers offrent cependant de multiples 
ressources. De nombreux dessins de M.C. Escher 
sont des variations sur des pavages réguliers. 

Pour construire des diagrammes plus com- 
plexes, une méthode directe modifie CARRE en 
remplaçant, par une procédure, la commande 


AVANCE qui trace les côtés du carré. La règle d’or 
à observer est de faire correspondre à toute modi- 
fication concernant le côté supérieur du carré 
une modification équivalente pour la base. De 
même, toute modification pour le côté droit doit 
avoir un équivalent à gauche, et inversement. 
Cela permet aux formes de pouvoir effectivement 
s’assembler. 

Pour tracer la forme élémentaire, il suffit de 
remplacer les commandes qui tracent les côtés du 
carré par des procédures traçant les nouvelles 
lignes. Le nouveau motif de pavage peut alors 
être dessiné en appelant PAVAGE. Voici le listage 
complet : 


POUR CARRÉ :C — 
LEVEPLUME GAUCHE 45 
AVANCE :C * (RACINECARRÉE) /2 
DROITE 135 POSEPLUME ÈS 
CÔTÉA :C DROITE 9 CÔTÉB :C DROITE 90 
CÔTÉC :C DROITE 9 CÔTÉD :C DROITE 90 
LÉVEPLUME GAUCHE 135 . 
RECULE :C * (RACINECARRÉE) / 2 
DROITE 45 

FIN 


POUR CÔTÉA :C 
AVANCE :C / 4 GAUCHE 90 
REPETE 19 [AVANCE? * 3,1416 * :C / 144 DROITE 10] 
GAUCHE 100 AVANCE :C / 4 

FIN 


POUR CÔTÉ :C 
GAUCHE 45 AVANCE :C / 2 
DROITE 90 AVANCE :C / 2 
GAUCHE 45 AVANCE :C -— :C * 
(RACINECARRÉE) / 2 

FIN 


POUR CÔTÉC :C 
AVANCE :C / 4 DROITE 90 
RÉPÊTE 19 [AVANCE2 * 3,1416 * : C / 144 GAUCHE 10] 
DROITE 100 AVANCE :C /4 

FIN 


Plan OA RP ne ane SO ON ou A À 


POUR CÔTÉD :C 
AVANCE :C - :C * (RACINECARRÉE) /2 DROITE 45 
AVANCE :C / 2 GAUCHE 9 
AVANCE :C / 2 DROITE 45 

FIN 


La technique d’Escher était bien sûr plus 
complexe, puisqu’il modifiait également les for- 
mes au fur et à mesure qu’elles « traversaient » 
le pavage. Une procédure LOGO capable de cela 
serait la bienvenue. 


Avec de la colle 


Une approche différente de la question est don- 
née dans l’excellent livre de Harold Abelson et 
Andrea di Sessa, Turtle Geometry. On peut la 
résumer de la sorte : soit une forme dessinée dans 
un carré, le dessin d’une tuile par exemple; 
assemblons-en quatre pour faire un plus grand 
carré. À nouveau, assemblons plusieurs de ces 
grands carrés, et ainsi de suite. 

Il existe plusieurs méthodes de « collage ». Plus 
précisément, puisque chacun des quatre éléments 
peut être orienté selon quatre directions, il y a 
4 x 4 x 4 x 4 = 256 combinaisons possibles. 
Les motifs résultants dépendent donc à la fois de 
ce qui était dessiné sur la tuile et de la méthode 
de collage utilisée. Notre procédure DESSINE trace 
le motif de base que l’on voit à droite. 


POUR DESSINE :C 
POSEPLUME GAUCHE 45 


AVANCE :C * (RACINECARRÉE) / 2 
RECULE :C * (RACINECARREE) / 2 
GAUCHE 90 AVANCE :C * (RACINECARREE) / 2 LEVEPLUME 
RECULE :C * (RACINECARREE) / 4 GAUCHE 45 
AVANCE :C / 2 GAUCHE 45 
AVANCE : C * (RACINECARREE) / 4 
LÉVEPLUME 
RECULE :C (RACINECARREE) / 2 GAUCHE 135 
FIN 
Voici une méthode possible de collage, 
COLLAGEI. Pour l’exécuter, tapez DESSINE LEVEPLUME 
COLLAGE [DESSIN] 100. Le motif obtenu est indiqué 
ci-dessous. 


Motifs changeants 

Les motifs assemblés 
sont constitués de 
formes géométriques 
s'imbriquant exactement, 
donc sans laisser 
d'interstices. Avec 
Métamorphoses || 

(dont nous nous sommes 
inspirés pour notre 
graphisme sur 
ordinateur), M.C. Escher 
(1898-1972) a montré 
comment une figure-motif 
simple comme un 
hexagone régulier peut 
être progressivement 
transformée pour 
composer un pavage 

ou un assemblage plus 
complexe : ici, une 
imbrication très 
sophistiquée de lézards. 
La méthode d’Escher met 
en évidence le passage 
du simple au complexe 
au fur et à mesure que 
l'œil se déplace pour 
découvrir la scène 

(CI. lan McKinnell, à 
partir du Macintosh.) 
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POUR COLLAGE1 :PROC :C 
ÉLÉMENT.CARRÉ 0 :PROC :C 
ÉLÉMENT.CARRÉ 0 :PROC :C 
ÉLÉMENT.CARRÉ 0 :PROC :C 
ÉLÉMENT.CARRÉ 0 :PROC :C 

FIN 


4 


ÉLÉMENT.CARRÉ trace l’un des éléments carrés cons- 
titutifs du grand carré. Il accepte trois données 
en entrée. :À détermine l’orientation du carré; 
‘PROC est le nom de la procédure qui trace le 
motif; :C représente la longueur d’un côté. Vu 
les dimensions de l’écran, il n’est pas possible de 
laisser la taille des carrés s’accroître. C’est pour- 
quoi la procédure prend comme donnée la taille 
du carré le plus extérieur pour calculer celle des 
carrés qui lui sont internes. 


POUR ÉLÉMENT.CARRÉ :A :PROC :C 
AVANCE :C / 4 DROITE 9 
AVANCE :C / 4 DROITE ® * :A 
EXÉCUTE PHRASE :PROC :C / 2 GAUCHE 9 * :A 
RECULE :C / 4 GAUCHE 90 
RECULE :C / 4 DROITE 9 
FIN 


Voici un certain nombre d’autres collages 
possibles : 


POUR COLLAGE2 :PROC :C 
ÉLÉMENT.CARRÉ 0 :PROC :C 
ÉLÉMENT.CARRÉ 1 :PROC :C 
ÉLÉMENT.CARRÉ 2 :PROC :C 
ÉLÉMENT.CARRÉ 3 :PROC :C 

FIN 


POUR COLLAGES :PROC :C 
ÉLÉMENT.CARRÉ 0 :PROC :C 
ÉLÉMENT.CARRÉ 2 :PROC :C 
ÉLÉMENT.CARRÉ 3 :PROC :C 
ÉLÉMENT.CARRÉ 1 :PROC :C 

FIN 


POUR COLLAGE4 :PROC :C 
ÉLÉMENT.CARRÉ 3 :PROC :C 
ÉLÉMENT.CARRÉ 2 :PROC :C 
ÉLÉMENT.CARRÉ 1 :PROC :C 
ÉLÉMENT.CARRÉ 0 :PROC :C 

FIN 


POUR COLLAGES :PROC :C 
ÉLÉMENT.CARRÉ 2 :PROC :C 
ÉLÉMENT.CARRÉ 1 :PROC :C 
ÉLÉMENT.CARRÉ 0 :PROC :C 
ÉLÉMENT.CARRÉ 3 :PROC :C 

FIN 


DESSIN est le nom d’une commande qui trace une 
figure à une seule donnée. Nous l’avons assem- 
blé par collage en écrivant COLLAGE [DESSIN] 100. En 
étudiant cette ligne de commande, on voit que 
la syntaxe COLLAGE1 [DESSIN] peut être considérée à 
elle seule comme une commande qui nécessite un 
seul nombre pour tracer une figure. Nous pou- 
vons donc utiliser [COLLAGE [DESSINE] en entrée à 
une autre commande COLLAGE. Par exemple : 
COLLAGE? [COLLAGE1 [DESSIN] 100 
Et cela ne fait que commencer! Ainsi : 
COLLAGE3 [COLLAGE? [COLLAGE1 [DESSIN]]] 100 


Nous avons alors 256 X 256 x 256 combinai- 
sons de collages à trois niveaux. Et pourquoi 
s’arrêter à trois? 


x? 


Pour voir... 


Nous allons concevoir un programme qui permettra à notre robot 
d’explorer une zone donnée et d’afficher la forme d’un objet 


trouvé à l’intérieur de la zone. 


x 


Pour permettre à notre robot d’explorer un 
espace déterminé, il est nécessaire de mettre au 
point un parcours efficace de reconnaissance. 
Nous devons d’abord penser à une analyse afin 
que le robot puisse avancer ou reculer dans la 
zone de recherche de l’objet. Lors de la localisa- 
tion de l’objet, nous pourrions décider de faire 
le tour de ses côtés avant de balayer le reste de 
la zone. Un tel algorithme est cependant diffi- 
cile à programmer et peut entraîner des problè- 
mes si la zone à explorer renferme plus d’un 
objet. Il serait également possible de contourner 
simplement l’objet et de poursuivre l’exploration. 
Les étapes d’un tel algorithme seraient les sui- 
vantes : 
RÉPÊTER 
RÉPÊTER 
Rechercher un objet vers l'avant 
JUSQU'À la rencontre de la bordure de la zone définie ou 
la découverte de l'objet 


Monter d'une « unité de largeur » 

Tourner : 
JUSQU'A la rencontre de la brochure supérieure de la zone 
définie 


A la suite de cette analyse horizontale, le robot 
n’aura pas exploré toute la zone. En utilisant ce 
parcours de reconnaissance, la zone située der- 
rière tout objet — la « zone aveugle » — ne sera 
pas explorée. Un balayage vertical (c’est-à-dire 
à 90° du premier) est au moins nécessaire. 

Avant que notre robot puisse effectuer avec 
succès un balayage, une modification mineure 
doit être apportée aux deux capteurs avant. Puis- 
que les roues du robot dépassent sur les côtés, 
elles risquent de heurter un objet. Pour résou- 
dre ce problème, nous devons ajouter un bou- 
clier à l’avant de chaque capteur pour protéger 
les roues. Chaque bouclier doit être de forme rec- 
tangulaire, environ 95 par 25 mm, et doit être fait 
d’un matériau léger (plastique rigide ou métal). 
Veillez à ce que le poids du matériau ne soit pas 
trop lourd, ce qui mettrait le capteur en position 
fermée. Les boucliers doivent être montés sur les 
capteurs au moyen de ruban adhésif ou de colle, 
et doivent être positionnés afin de couvrir com- 
plètement la trajectoire des roues. Vérifiez le bon 
fonctionnement des capteurs; ils doivent toujours 
s’ouvrir et se fermer. 

Le programme qui permet au robot d’effectuer 
une exploration de zone a été écrit en utilisant 
un parcours de reconnaissance horizontal et un 
parcours de reconnaissance vertical. Lorsque le 


robot a terminé son parcours sur chaque ligne de 
balayage, une zone correspondante de l’écran de 
l’ordinateur est remplie de couleur. A la fin, une 
représentation picturale de l’objet est affichée à 
l’écran. 

Les deux versions de notre programme deman- 
dent à l’utilisateur d’entrer les dimensions de la 
zone à explorer. À l’aide du mode 4 du BBC, ou 
de l’affichage haute résolution du Commodore 
64, chaque point de l’écran correspond à 4 mm° 
de la zone explorée. Les dimensions maximales 
dans les plans horizontal et vertical sont donc res- 
pectivement 1279 et 1023 mm, pour les deux 
machines. Notez qu’une largeur de bande de 
balayage de 40 mm est utilisée par chaque 
programme. 

Pendant le balayage de chaque bande, l’affi- 
chage graphique est mis à jour à l’aide des pro- 
cédures (ou des sous-programmes) nommés 
XPLOT et YPLOT. Dans la version BBC, la bande de 
balayage sur l’écran est simplement remplie en 
utilisant les commandes MOVE et DRAW qui produi- 
sent une série de lignes parallèles. La version 
Commodore 64 a, en revanche, recours aux deux 
routines en code machine — PLOTSUB et LINESUB — 
que nous avons déjà conçues pour améliorer les 
faibles commandes haute résolution offertes par 
le Commodore BASIC. Si vous avez des copies 
des fichiers objets de ces deux routines, elles peu- 
vent être chargées à l’aide des lignes 30 et 40 de 
la version Commodore du programme. Vous 
pouvez aussi utiliser des chargeurs BASIC pour 
ces deux routines. Chacune doit être chargée et 
exécutée séparément, avant de charger et d’exé- 
cuter le programme. Dans ce dernier cas, les 
lignes 30 et 40 peuvent être supprimées. 

Outre cette zone aveugle, subsistant parfois 
après deux balayages, plusieurs autres difficul- 
tés peuvent être rencontrées. Parmi celles-ci, sou- 
lignons que l’efficacité du programme varie selon 
la forme de l’objet et son orientation. Il sera plus 
efficace avec des formes rectangulaires, orientées 
le long des axes horizontal et vertical. Les for- 
mes triangulaire et circulaire produiront des zones 
aveugles plus importantes puisque le parcours de 
reconnaissance aura tendance à « oublier » les 
irrégularités des objets rencontrés. A titre d’exer- 
cice, modifiez le programme donné de façon à 
effectuer un autre balayage vertical. Le robot 
peut aussi avoir des difficultés s’il rencontre un 
objet pendant la manœuvre qui lui permet de 
commencer une nouvelle ligne. Afin de simpli- 
fier les choses, l’état des capteurs n’est pas véri- 
fié pendant cette manœuvre. 
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Zones aveugles 


DÉPART 


Après un balayage vertical 


Listage BBC Micro 


1OREM #4 RECONNAISSANCE DE FORME BBC #4 
20MODE 4 

TOPROCinitialise 

4@PROCscan dimensions 

SOPROChor iz scan 

ESPROCvert scan 

TOEND 

S8ODEF PROChoriz scan 

30 tarset=wrisense=left:xstart=® 

1OBREPEAT 

11@REPEAT 

120PROCmove(forwards, dx) :x=x+dxX 
1SQUNTIL(?DATREG AND 192) neither bumpers DR x=tarset 
148PROCxP 1 0t 

1SBdx=-dx:y=y+dy1kSTtArtEX 

1601F tarset=0 THEN tarset=wux ELSE tarset=Q 
17@IF y<wr THEN PROCnext strip(sense) 

180IF sense=risht THEN sense=ieft ELSE sense=risht 
ISQUNTIL y =wy 
2@8ENDPROC 
210: 
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220DEF PROCvert scan 

230IF x=@ THEN sense=ieft:dx=width ELSE sense=rishtidx= 
width 

240dy=-dwitarset=Qiystart=y 

2S8PROCturn(sense, 90) 

260REPEAT 

27OREPEAT 

280PROCmove(forwards: dy)1y=y+dy 

2S@UNTIL(?DATREG AND 192) neither bumpers OR y=tarset 
308PROCyPI0t 

Tibdy=-dy1k=x+dx1yStart=y 


Listage Commodore 64 


10 REM #%ks RECONNAISSANCE DE FORME CEM sos 
DN=B:REM IF CASS THEN DN=1 
IF A=@ THEN A=1:LOAD"PLOTSUB. HEX", DN, 1 
IF A=1 THEN A=2:LOAD"LINESUB. HEX", DN, 1 
GOSUB1000:REM INITIALISER 
GOSUB2000:REM DIMENSIONS DE BALAYAGE 
GOSUBSQOG:REM PASSER AU MODE HAUTE RESOLUTION 
GOSUBSOOG: REM BALAYAGE HORIZONTAL À 
GOSUB4008:REM BALAYAGE VERTICAL 


Touche : 


— 


Zone balayée horizontalement 


—————————— 


RE «ES 


Zone balayée verticalement 


Zone non balayée 


La façon la plus simple 
pour balayer une zone 
rectangulaire consiste à 
faire deux balayages 
orientés à 90° l’un par 
rapport à l'autre. 
Lorsqu'un objet est 
rencontré ou lorsque la 
bordure de la zone est 
atteinte, le robot monte 
d'une bande et continue 
le balayage dans la 
direction opposée. 

Avec cette méthode, 

des « zones aveugles » 
suivront tout objet trouvé. 
Cependant, le second 
balayage explorera la 
majeure partie de la zone 
qui n'avait pas encore 
été vue. Des imprécisions 
subsisteront toujours en 
raison de la largeur de la 
bande de balayage 
utilisée et de l'orientation 
respective des objets. 
(CI. Kevin Jones.) 


My 00: EE 


100 GOSUBS1BG:REM QUITTER MODE HAUTE RESOLUTION 
118 

120 : 

1000 REM kr S, P. INITIALISER ton 
1818 DDR=56579:DATREG=56577 

1828 POKE DDR, 15:POKE DATREG: 1 

18350 FW=4:BW=2:LF=6:RT=@ 

1840 PD=S. 34446: PA=S75/90 

1850 RB=128:LB=64 : BB=0: NB=132 

1060 WD=40 : DH=WD/ 18: X=0: Y=8: DX=DW: DY=WD 
1078 REM + M/C ADRESSES DE DEPART #* 
1080 HIRES=49422:L INESUB=49934 

1898 RETURN 

1100 : 

2008 REM #** DIMENSIONS BALAYAGE tot 
2019 INPUT“X DIMENSIONS EN MM":WX 
2020 IF WX/4>319 THEN 2018 

2038 INPUT"Y DIMENSIONS EN MM"5WY 
2048 IF WY/4»199 THEN 2038 

2858 WX=WD*INT CWX/WD) 2WY=WD# INT CHY/ HD) 
2068 RETURN 

2078 : 

3008 REM *wkk BALAYAGE HORIZONTAL #tton 


Suite du listage du BBC Micro Suite du listage Commodore 64 


Z3201F tarset=@ THEN tarset=wr ELSE tarset=0 3018 TG=WX:SE=LF : XS=D 
SSSPROCnext strip(sense) DR=FW:DS=DX :GOSUB7008:REM DEPLACER 


S4@IF sense=risht THEN sense=ieft ELSE sense=risht X=X+DX 


SSOUNTIL x =wx OR x @ IF(PEEK(DATREG)AND 192)=NB AND X<>TG THEN 3229 


SSBENDPROC 

370: 

3SSODEF PROCnext strip(may) 
3S0PROCmove(backwards: 30) 
488PROCturn (may 98) 
418PROCmove(formardsr midth) 
42PROCturn (way: 392) 


4SODEF PROCscan dimensions 
4EBINPUT"X DIMENSION IN MM" mx 
470 IF wx 1279 THEN 469 
&B@GINPUT"Y DIMENSION IN MM"3my 
490 IF wy 1023 THEN 489 
SOGwx=width#(mx DIV width) 
Sidwy=widtheCwy DIV width) 


SSODEF PROCinitialise 
S6ODDR=4FEG2: DATREG=8FE6O 
S70?DDR=1S:REM LINES @-3 OUTPUT 
S80?DATREG=11REM TURN ON RESET BIT 
SS0tormards=4: backwards=2: left=6:risht=2 
6@@rd ratio=S. 3%444B:pa ratio=375/90 
Gidrisht bumper=1281:left bumper=54 
62@both bumpers=@ineither bumpers=192 
GSOw i dth=40: dw=width/18 

640 x=0:y=0:dx=dm: dy=ni dth 

ESCMOVE 0,0 

GSDENDPROC 

670: 

GS8@DEF PROCmove(dir, distance) 
690?DATREG=(?DATREG AND 1)0R dir 
7@0Puises=Pd ratio*ABS (distance) 
710FOR 1=1 TO puises:PROCPUISeNEXT I 
728ENDPROC 

730: 

74@DEF PROCturn(dir, ansie) 
750?DATREG=(?DATREG AND 1)0R dir 
768Peuises=pa ratio*ansie 

77@FOR I=1 puises: PROCPuISe:NEXT I 
7BSBENDPROC 

730: 

BOODEF PROCPuISse 
819?DATREG=(?DATREG OR 8) 
820?DATREG=(?DATREG AND 247) 
B3SDENDPROC 

B4@DEF PROCxPI0t 

BSOFOR 1=9 TO width STEP 4 
B62MOVExstart: y+I 

87@DRAWx: +1 

BSONEXT I 


900: 

S1QDEF PROCyYPI0t 

926FOR I=@ TO width STEP 4 
ISOMOVEx+I, start 
SABDRAWX+I: » 

SSONEXT 1! 

SIGBENDPROC 


GOSUBSOBG:REM TRACE X 
DX=-DX:Y=V+DY: XS=X 

IF TG=Q THEN TG=WX:G0TO 30938 

TG=0 

1F Y<WY THEN WA=SE:GOSUBBBO0:REM NEXT STRIP 
IF SE=RT THEN SE=LF:GO0TO 3128 
SE=RT 

IF YCWY THEN 3028 

RETURN 

: 

REM #wkk BALAYAGE VERTICAL #ton 

IF X=@ THEN SE=LF:DX=WD:GO0OTO 4830 
SE=RT :DX=-WD 

DY=-DY:TG=@: YS=Y 

DR=SE : AG=90: GOSUB7120:REM TOURNER 
DR=FW:DS=DY :GOSUB7000:REM DEPLACER 
Y=Y+DY 


IF(PEEK(DATREG)AND 192)=NB AND YC)TG THEN 4258 


GOSUBS1B0:REM TRACE Y 
DY=-DY:X=X+DX:YS=Y 

IF TG=@ THEN TG=WY:G0T0 4120 

TG=0 

MA=SE : GOSUBS8000:REM BANDE SUIVANTE 
IF SE=RT THEN SE=LF:GOTO0 4150 
SE=RT 

IF XCWX AND X>8 THEN 48SG:REM REPETER 
RETURN 

: 

REM %kké ENTRER HAUTE RESOLUTION “tm 
POKE 49408, 1: POKE 49409, 1 

POKE 49410, 1:SYS HIRES:RETURN 

: 

REM #wmk QUITTER HAUTE RESOLUTION ###s 
POKE 49408, 0: POKE 49409, @ 

POKE 49419, 1:SYS HIRES: RETURN 

: 

REM wwe ENTRER LIGNE ##k 
MHI=INT(X1/256) :MLO=X1-25S6#MHI 
NHI=INT(X2/256) :NLO=X2-256#NHI 
POKE 49920, MLO:POKE 49921; MHI 

POKE 49922, NLO:POKE 49923; NHI 

POKE 49924, Y1:POKE 49925, Y2 

SYS LINESUB: RETURN 

: 

REM ke DEPLACER CDR; DS) ot 
POKE DATREG, (PEEKC(DATREG)AND 1) OR DR 
PL=PD*DS 

FOR 1=1 TO PL:GO0SUB7280:NEXT 1! 
RETURN 

: 

REM %ww TOURNER CDR, AG) ##m 
POKE DATREG, (PEEK(DATREG)AND 1) OR DR 
PL=PA#DS 

FOR I=1 TO PL:GOSUB7208:NEXT I 
RETURN 

: 

REM #okws IMPULSION #otxok 

POKE DATREG, PEEK(DATREG)OR 8 

POKE DATREG, PEEKCDATREG)AND 247 
RETURN 

: 

REM ok BANDE SUIVANTE #4 
DR=BW:DS=30:GOSUB7@00:REM DEPLACER 
DR=WA:AG=90:G0SUB712 :REM TOURNER 
DR=FW:DS=WD : GOSUB7@000:REM DEPLACER 
DR=WA: AG=90: GOSUB7100:REM TOURNER 
RETURN 

REM work TRACE X ton 

FOR 1=@ TO WD 
X1=XS/4:Y1=(V+1)/4:X2=X/4:Y2=V1 
GOSUBEOOG:REM ENTRER LIGNE 

NEXT I 

RETURN 

REM tk TRACE Y ton 

FOR 1=@ TO WD 

X1=(X+1) /41Y1=YS/41X2:X1:Y2=Y/4 
GOSUB6GBO:REM ENTRER LIGNE 

NEXT I! 

RETURN 
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Figure 1 


Dans les organigrammes longs et complexes, il est nécessaire 
d'introduire un maximum de clarté. Nous allons parler 
de deux symboles qui s’avèrent indispensables. 


Ces symboles se nomment « connecteur de par- 
ties » et « connecteur de pages ». Pour illustrer 
le premier, prenons un exemple. Un opérateur, 
situé à la fin d’une chaîne de production, reçoit 
deux types de conteneurs — A et B — contenant 
un nombre indéterminé de boulons. Sa tâche se 
réduit à la chose suivante : il prend un conteneur 
et, si celui-ci appartient à la classe À, il doit le 
peser, noter son poids, l’emballer et l’expédier. 
En revanche, si le conteneur appartient au groupe 
B, il prendra un boulon, le pèsera, le calibrera 
et notera ses mesures. Il continuera ainsi jusqu’au 
dernier boulon, puis il pèsera le conteneur, notera 
son poids et l’emballera. 

Observez, dans cet exemple, l’utilisation des 
symboles connecteurs de parties (fig. 1). Ils réa- 
lisent la même fonction que les lignes de flux, 
mais avec un avantage : plus l’organigramme est 
compliqué et plus le nombre de lignes augmente, 
ce qui peut provoquer un grand nombre 
d’erreurs; à l’aide de ces petits cercles, non seu- 
lement on simplifie l’écriture, mais on accède éga- 
lement au point marqué par le connecteur 
d’entrée, dont l’indication écrite à l’intérieur (une 
lettre ou un numéro de préférence) coïncide avec 
la figure placée dans le connecteur de sortie. Le 
connecteur qui marque l’entrée de la séquence 
doit être unique; cela signifie qu’il ne peut exis- 
ter deux connecteurs d’entrée possédant une 
même indication. Mais il n’y a pas de limite aux 
connecteurs de sortie. 

En comparant ce cas à celui des lignes de flux, 
on voit qu’il est possible d’utiliser autant de 
connecteurs que nécessaire dans un même orga- 
nigramme, et ils peuvent s’alterner indistincte- 
ment avec les lignes de flux dans l’organigramme. 

Le connecteur de pages (fig. 2), en revanche, 
est de caractère obligatoire, en particulier 
lorsqu'un même organigramme occupe plus 
d’une feuille. Arrivé à ce stade, on peut se 
rendre compte du grand avantage quant à la 
commodité et surtout à la clarté que représente 
l'utilisation d’un connecteur à la place d’une ligne 
de flux pour relier les points d’un organigramme 
comprenant différentes pages. 


2. Connecteur de pages 


1. Connecteur de parties 


Jeux Et 


Cambriolage 


Ce jeu, écrit par Terry Davies, utilise 24 K de mémoire de votre 
ordinateur Atari. Le but est de retirer le plus d’argent possible 
contenu dans le coffre-fort. 


Pour ouvrir le coffre, il faut trouver trois bons 
numéros; le programme vous prévient lorsque 
vous êtes à plus ou moins cinq du numéro recher- 
ché. Vous avez droit à dix essais par numéro 
avant que l’alarme ne se déclenche. Lorsque vous 
trouvez le premier numéro, vous essayez le 
second, puis le troisième. Si vous trouvez les trois 
numéros (une probabilité de 1 sur 970 299), le 
coffre s’ouvre et vous pouvez dérober l’argent. 
Vous essayez ensuite dans une pièce différente. 
La chance tient une place importante dans ce jeu, 
mais la technique aussi. Après avoir expérimenté 
ce jeu, vous réfléchirez à deux fois avant de vous 
lancer dans un véritable cambriolage. 


L REM RRRIRT TO EEE 
2 RENM #* CAMBRIOLAGE #* 

3 REM ** ECRIT PAR TERRY DAUIES *# 

4 RENÉE PPPPOOOONEEEDEE 

5 GRAPHICS 2:FLASH=9:P=19: DIN A$C5),0$(3 
288 >,0C4 3,PT$CEZ ): TT=0 

18 POKE 798,P+19:POKE 789,145:PDKE 752,3 
:POKE 712,145:POKE 718,145 

157 " TAPEZ start " 

28 POSITION 4,4:7 #65"  CAMBRIOLAGE" 

25 POSITION 4,5:7 #55"  CAMBRIOLAGE": 50 
Sue 6aaa 

34 IF PEEK(53279)=6 THEN 1999 

F5,Pep+@, L'FLASHEFLASHEL: 1 FLASHDSS THE 
NW POKE 739,P:IF FLASH>59 THEN POKE 728,1 
45: AeNe 26 PUKE 62072,0 : 
49 IF FLASH=9 THEN POKE 799,145:1IF FLASH 
=à THEN POKE 7@8,P:PÛKE 53279, 0 

59 IF P<298 THEN 39 

1980 GRAPHICS 7:PX=4: LC=40: X=0: V=0 

1995 GOSUB 519 

1987 ? "UN INSTANT." 

1913 GOSUB 39999 

1924 FOR I=9 TO 4:POKE 798+I,CCI):NEXT I 
183 GOSUB 5199 

1949 POKE 752,1:POKE 799,9:7 

FÉTOLE COFFRE CHUCLI PP PMsFOR Mel TO. Ÿ 
560: NEXT Me CR 125) 

Fe" EVQUS FERTEZ MIEUX D'ECLAIRERS ET 
oùs ETES SEUL TAPLS START :PORE 53 


1945 IF PEEK(53273X2>6 THEN 1945 

1954 POKE 749,292:7 CHR$C125 >; "UQUS UOYE 

Z MIEUX MAINTENANT":7 "DANS LA PIECE":FO 

R H=1 TO 2MGG:NEXT H 

1955 ? CHR$(125):60T0 2999 

1964 GOSUE 6408 

1979 ? CHR$( 125); "TAPEZ START POUR UN AU 

TRE CAMBRIOLAGE" 

. POKE_719,39:FOR H=1 TO ze NEXT_H:P 

719,138:F0R H=1 TO SS:NEXT H:POKE 71 

ag FOR H=1 TO 259:POKE 719,138 

1972 FOR W=1 TO 9S9:NEXT H:POKE 719,148:F 

OR H=1 TO 259:NEXT H:POKE 719,138:FO0R H= 

1 TO 1@B:NEXT H:POKE 719,148 

1973 FOR_W=1 TO 2S9:NEXT H:POKE 719,138: 

FOR H=1 TO 1A8:NEXT H:POKE 716,146 

IP EE 53279,9:1IF PEEK(53279X 26 THEN 


1975 GOTO 1929 


ä 


2999 A=INT RNDK 1 >K81 >+19:B=INTCRNDC 1 K81- 


+18: C=INTCRNON 1 XE1 +185 = 

2903, dautli7 5 VOTRE PREMIER NOMIBRE_ 14 
99 ":INPUT N:1F N>99 OR NCi THEN 2003 
2995 IF J=11 THEN 60SUB 3959:60T0 1968 

2006 IF NÇ>A THEN 200€ 

2097 GOSUB 3859:60T0 2499 

2008 IF N>A-5 AND N<A+5 THEN GOSUB 3900: 
SOTO 2993 

2919 IF N>R+5 OR NKA-S THEN 6OSUB 4999:6 

OTO 2983 

2911 GOTO 2903 

2499 J=û 

2588 J=J+1:7 "UOTRE DEUXIEME NOMBRE": INP 
UT N:1F N>99 OR N<@ THEN 250 

2519 IF J=11 THEN GOSUB 3959:6070 1960 

2524 IF N(2B THEN 253% 

2525 GOSUB 3259:60T0 2999 

25234 IF N>E-5 AND N<B+S THEN GOSUB 3990: 
60TO 2598 


2535 IF N>B+5 OR NKB-S5 THEN GOSUB 4998:6 
QTO 2588 


2548 GOTO 2508 

29393 J=a 

3909 7 "_ UOTRE TROISIEME NOMBRE": INPUT 
N:1F N>99 OR N<G THEN 3988 


3019 IF .J=11 THEN GOSUB 3359:60T0 1969 
3@2Q 1F N<>C THEN 293ü 

3925 GOSUB 3850:7 "LE COFFRE EST OUVERT" 
:J=@: COLOR G:PLOT 41,34: DRAHTO 39,16 
3026 J=J+1:IF J>9 THEN 3928 

F:C14 DRAHTO 41+4J,16:DRAHTO 41+4,3@: GOTO 


3928 FR=INTE RNOC 9 +200 +198: 7 CHR$#C 12523 
"BIEN JOUE , IL Y AUAIT "5FR5" FRAN S DA 
NS":7? "CE COFFRE! !..,,. 

3923 TT=TT+FR:7 "ESSAYEZ CELUI C1.....": 
FOR H=1 TO 199G:NEXT H:GOTO 1929 

3430 1F_N>C-5 AND N<C+S THEN GOSUB 3988: 
GOTO 3688 


3935 IF N>C+5 OR NCC-5 THEN GOSUB 4998:6 
OTO 3488 

3948 GOTO 3999 

3359 FOR T=1 TO 199:SOUND 9,7T,19,8:NEXT 
57 "C'EST EON":SOUND 9,4,@,8@: RETURN 
3999 FOR S=29 TO 15 STEP -4:NEXT S:SOUND 
ET PEN ga W=1 TO Z:NEXT H:SOUND @,8 


3959 7 "MALHEUR ! IL'ALARME S'EST DECLENC 
MEB“: 7 LES POLICIERS MÉRTUENT 2 RÛ 
3969 7 "VOUS RETIREZ ":TT5" FRANCS DES © 
OFFRES" ;: TT= 

3998 FOR N=29 TO 15 STEP -4:NEXT_N:SOUND 
G:N:1@:14:FOR W=i TO 23:NEXT H:SOUND 8, 
9,3,8:R=R+1:1F R=29 THEN RETURN 

3999 GOTO 3998 

400 ? * FAUX ESSAVEZ ENCORE !":?RETUR 


3190 DL=PEEK< 569 )+PEEKK 561 2K2956 : MEM=PEEK 

(196 >#256: DAT=PEEKCDL+4 »+2S6*PEEKCOL+S > 

5198 RESTORE 5299:FO0R P=1 TO 62:READ A:P 

T$CP,PO=CHRSCADINEXT PF 

5119 ST=O0AT+YKLC+INT( X/PX 2: RETURN 

318 60SUB 5114:A=USRCADRC PTS »,ST,ADRCDS$ 
T,LIN,LC 2? RETURN 

5298 DATA 194,18@4,123,204,10%4,123,263,18 

Rd Er RE ,205,194,194,133,297,19 

5219 DATA 176,194,194,133,298,164,207,13 

5,177,205 

3229 DATA 145,293,136,192,255,208,247 ,24 


»16 
5% DATA _293,191,208%133:203 » 1442230 7 
204,24,165,205,181,207,133,205,144,2,230 


5249 DATA 296,262,208,219,96 

6@g@ FOR J=1 TO 8:SOUND 8,47,19,8:FO0R L= 
1 TO 198:NEXT L:SOUND 9,64,19,8:FOR L=1 
TO 1BG:NEXT L:NEXT J 

5941 SOUND @,4,9,4: RETURN 


284008 DATA @,0,0,%,0,0,0,0,0,0,0,0,0,0%0 
20991 DATA 5,9,9,9,0,0,0,0,0 00 » 0 0 0 70 
2 DATA @,6,8,12,0,0,0,0,0:@:0@r@ 0e 


. DATA 9,6,6,6,6,0,9,0,0,0,0,0,0,195 


2004 DATA_63,255,207 29563295 » 207 295 

163,255 :207 1299: 1921920 

20085 DATA 9,5,9,9,9,0,0,9,9,0,9,0,9,0,8 
DATA _9,6,9,8,0,0,0,0,195,12,63,255 

7 239263 

20007 DATA 255,207 255,63» 295 » 207 295» 19 

291929 19220 7 0 9 090 704 

20088 DATA 9,9,0,9,9,9,0,9,0,9,0,9,0,9,9 

20089 DATA @,6,6,195,12,63,255,207,255,6 

3»259 » 207 1259563295 

20919 DATA 297,255,192,192/192:9/0700%0 


:8,0,0,0,0 


Cite DATA 9,6,5,9,9,9,0,9,0,9,0,0,0,195 


3D812 DATA _ 63,295, 207 » 299263 » 295 » 207 » 233 

263259: 207 »299r192r192,192 

29613 DATA 9,9,9,9,0,0,9,0,0,0,0,0,0,0,@ 

24814 MIRE RENE N SE 

20915 DATA 255,207 ,255,63299 »207 295» 19 

2,192,192,0,0,0, 00 

20916 DATA 9,9,9,0,0,0,0,0,0,0,0:0:070r0 
17 DATA 9,8,8,195,12,63,255,207,255,6 
2295 » 207 1295632299 

29918 DATA 207,255,192,192,192,9,9 992 

G,0:0r@ 

29913 DATA ue 9,0,63:295 »207 25519 

2r0/0:195% 

29929 DATA 83, 2557207 »255 763295 »297 233 

1623255207 295 1921927192 

29921 DATA 9,9,9,9,9,0,9,0:00 0109920 

28822 DATA 4,63,255,207 255192030195 

12,63/299 207 1239753 

20023 DATA 255,297,255,63,255 207 » 255» 19 

219219200020 90 

Si CELL ELEC ELEC EL ECECE PERTE 

es DATA 192,9,9,195,12,9,9,9,9,9,9,9, 

+ DATA 9,9,9,192,192,9,9,9,9,0,9,9,0 


És ARE 209010: 263 295 » 207 1295: 19 


1459 


1460 


29928 DATA_ 63,255 ,207 29963» 299 » 207 »255 
263,255: 207 3299» 192» 192192 

ph D,9,0,9,0,0,0r0r0r3r255r295r2 
22939 DATA 9,63,255,207 ,255 19200195 
12/63,295 207 255262 

29931 DATA 255,297 ,255,63,295 » 207 299 ? 19 
2,192,192,0,0 0 0 7 0 

28832 DATA 85° 85,35 95 292070712000 26 
3255207 1255 

29933 DATA 192,9,9,195,12,53,255,207,255 
26332552 207 2259633299 

29934 DATA 297,2955,192,192,192,9,0 00 70 
285858528992 

29935 DATA 9,9,12,0,0,9,63:255 207 25971 
92,6/019512 

29936 DATA 6532295207 295 253 » 295 207 »295 
263: 255 207 9299 192» 192192 

A DATA 0,9,0,0,0,80,9,0,0,48,9,0,3,0 


20933 DATA 9,53,299 7207 7299 » 19209195» 
12:63, 299 207 1299263 

29933 DATA 255,207 7295 » 53 299 »207 »2993» 19 
2r192,192/0r0/0 00 

Fe EEE 89,0,0,0,192,9:0r3r0r1r35r39 
29941 DATA 9,6,9,195,12,63%299 207 29926 
3:255:207 2992622295 

29942 DATA 297,255,192,192,192,9,9,9,9,9 
180,3,195:3/0 

29943 DATA he D,192,1r54r63r299 240255 
»192/00:19S71 

29844 DATA É3:299,207 :255/63,295,207 ,255 
163225522097 1295192, 192,192 

Rene DATA 9,9,9,9,9,99,16,51,3,9,9 070 
20945 DATA 59,35,95,249,295 1920/9195 
12,8,0,9,0 0 

20%47 DATA 6,9,0,0,0,0,0,9,192192:00 0 


8,4 

29948 DATA 89,4,192,12:0r0r0r0r48r16928 
5,85,249,255 

20949 DATA 192,9,9,195,12/63/295 297 295 
163255 207 2596312598 

29859 DATA 267,255: 192% 192192000020 
:80,85,192,45,0 

29951 OATA 9,9,0,12,1/69%81:85:249,299 1 
92,0/0,195,12 
29052 DATA _ 63,255 2207 »299 53 » 255 » 207 22955 
:62:299,207 2997192, 1927192 

Dose DATA 9,5,9,9,9,88,68,3,192,9,8,0,8 
20454 DATA 69,85285,240,295» 1920071957 
12,63,295207 29563 

29955 DATA 255,297 ,255,/63,2955 207 255» 19 
2,192,192/0/0/000% 0 

20956 DATA 25,29,192,192,9,9,9,0,3,1,69; 
85,25,249,255 

20657 _DATA_192:0:919512:63,255 207 255 
263:2952207 125951623299 

29058 DATA 207,255,192,192,192,3,192,9,9 
:0,88,16,195,0,8 

29453 DATA 9,9,8,3,1,69,85,85,249,255,19 
2:0,@,195,12 
29060 DATA_53,255,207 255 763 »295 »207 255 
2632255207 :299 1925192192 
20961 DATA 48,9,9,9,9,88,89,9,179,179,17 
9,170,178,178,194 

29962 DATA 69,9,85,249,0,9,9,8,195,12,63 
25 255263 


22552207 1299363 
20963 DATA 255,207 ,25563,255 297 »295 19 
2,192,195,0/0/0:0% 0 

20064 DATA 88,64,192,9,88,2,64,0,0,2,69, 
25,85240,255 

29965 DATA _192,9,9,195/1263/295 207 255 
1632599207 »295r63:295 

29966 DATA 297,255,192,192,249,8,9,9,9,0 
188:76:12/192288 

20967 DATA 2,64,0,9,2,69,85,85,249,255,1 
92,9,9,195/12 

20968 DATA_63,255,207 29563295 »207 299 
2632255207 1255: 192:19520 

Rs DATA 9,9,9,9,0,88,9,0,0,88,2,64,9, 


S687e DATA 69,85,85,249,255,192,0:9195% 
12,0,0,192,0,0 
20971 OATA 9,9,9,0,12,0,00:240 19290 


29072 DATA 33,9,9,9,88,2,54,0,9,2,69,85, 
29673 DATA 192,0.2,195.12,53,255,295,255 


2633255 3 207 123560» 
Fe vue 207 255 » 207 191010107070 10238» 
260, 
29475 DATA 2,64,9,9,2,69r95 299 249 »255 » 1 
3200/3112 
29976 DATA 53,255,297 2955763299 » 207 r295 
1567152207 255:240, 192,8 
Gb lt D,9,9,0,0r90r170r170r179r88r2 
:64,9,8,2 
29978 _DATA_ 659,95 35249,255192:9r9r3r12 
a 

73 DATA 255,297 295 » 96 » 15 »297 »295 979 
SCHOUME 9,8 
29939 DATA 35,85,85:995 98 222840102974» 
255295 92401293 
20931 DATA 192,9,9,3,12,53,2955 207 25576 
32295 9 207 1255196215 
TRE pr 297,249,192,9,192,9,9,9,9,9,9 
,6,0,0 
Gr ir 2,64,9,02r2595%85r80 29519 
23013 
29984 DATA 53,255,297 25563299 297 2233 
256152207123 192192 
Fe. DATA 9,9,9,9,9,0,9,9:0 02164100» 


29886 DATA 9,9,9,9,0,9,0r0r3r1263r295r2 
71255263 


29987 DATA 255,297,255,56,15,192,9,3,192 


»192,0,0:020%0 

29838 DATA 9,9,9,9,0,2,64,9,8,9,9,63,255 
»207 ,255 

29939 DATA 192,8,9,3,12,53,255,297,255,6 
3:255207 12559612 

en ES DATA 9,9,195,192,132,9,9,9,9,9,9,9 
»8,@» 

29931 Ro a RE »295 207 2559 1 


32,0,0 
res DATA 9,9,9,9,9,9,9,9,8,9,9,12,3,19 


—. DATA 9,9,9,9,9,0,9,9,9,9,2,64,9,9, 


29934 DATA CRETE ét 132,9,9,3,15 


2255 » 299 2 299 9 299 
2295295291 12:60/255 135 


29935 DATA 255 
,192,192,0,0,030 20 
29996 DATA 9,9,9,9,9,2,64,9,9,9,9,63,255 


2207 1255 
rs DATA 192,9,9,3,12,9,9,0,90000 00 


29933 DATA 12,12,3,192,192,0,9,0r0r08%0 


,8,0,0 
29699 DATA 2,84,9,0,9,0,63,255,207 295,1 


92,0,6,3,1 
re D,9,0,9,0,0,0:0r119,12»12%3 
Eh DATA 5,9,9,9,9,9,9,9,9,9,2,64,0,9, 


20182 DATA 9,653,255,207,255,192,9,0,3,12 
°0:6:0r0 


29193 DATA @,9,9,11,12,12,12,3,192/1929 


20:00 0 
20194 DATA 9,9,9,9,9,2,54,9,9,9,0,53,255 


»207 255 
Be DATA 192,9,9,3,12,9,9,9,9,9,9,9,9, 


He DATA 12,12,3,192,192,9,9,0,9,9,9,0 
alu DATA 2,54,9,9,9,9,9,0,0,9,9,9,9,3, 


25188 ogrR 20,00 000 r@r11r12r12»12%3 
2oiss DATA 9,9,9,9,9,9,9,9,9,9,2,64,9,9, 


Zoe DATA 9,9,9,9,9,9,9,9,3,12,9,9,9,0, 
28111 me D,9,9,11/12r12r12r3r192r1920 


CALE 


24112 OATA 9,9,9,9,0,2,64,0,0 00000907 


& 
HD DATA ÿ,9,0,3,12,0,0,0,0,0,@:@r@511 
29114 DATA 12,12,3,192,192,9,9,0,9,8,0,0 


2118 DATA 2,54,0,0,0,0,0,0,8,0,8,0,0,3, 


26116 oaTA 9,0,9,9,0,9,9,8,11,12,12,12,3 
20117 DATA 0,8,8,8,0.8.0.8,0,8,2,64,8,0, 


] 
. DATA 9,5,9,6,9,9,9,0,3,12,9,0,0,0, 
29119 DATA 9,9,9>11/12r12r12r3r192r192@ 


ALL 


29126 DATA 9,0,9,0,9,2,54,0,8,0,9,0,8,0, 
29121 ORTA 8,9,0,3,12,9,2,0,8,0,8,0,0,11 
20122 DATA 12,12,3,192,192,0,9,9,0,0,0,0 
29125 DATA 2,64,0,0,0,9,0,9,0,0,8,0,0,3, 
29124 DATR 6,9,8,0,8,9,0.8,11,12,12,12,3 


192, 


29125 DATA 4,0,0,9,0,9,0,8,0%,2,64,0,0, 
Zo12s DATA G,0,8,0,9,0,0,8,312,2,0,8,0, 
29127 DATA 9,0,9,11,12,12,12,3,132,132,9 
29123 DATA 9,9,9,9,9,2,64,9,9,9,9,9,9,9, 
20129 OATA 9,9,0,3,12,8,0,0,2,8.2.0,0,11 
52130 DATA 12,63,255,192,192,9,9,0,0,0,0 


10,40 


Hs DATA 2,64,5,9,9,9,9,9,0,9,9,9,0,3, 
ns DE 00000000 r11r12»12rS191 


ss bre 132,195,195,15,192,9,9,0,9,0, 
20134 DATA 9,0,0,0,0,0,0,0,3,12,0.0,8,0, 


E 
Ge DATA 9,9,9,7,12,12,48,252,192,192, 


” Lu 


26136 DATA 9,9,9,9,9,2,64,9,9,9,9,9,9,0, 


28137 DATA 9,9,9,3,9,63,243,252,255,53,2 
97»243,244,247,12 
29133 OATA 297,249,15,192,48,9,9,9,0,0,8 


,6,6,08 
RE DATA 2,54,9,9,9,9,9,0,0 0,0 0 90 70 


29149 ORTA 8,9,9,9,0,8,0,8,7,12,12,48,3, 
26141 DATA 9,9,9,0,9,9,9,9,0,9,2,54,0,8» 


29142 DATA 9,8,0,9,0,2,0,0,0 00000 
28143 DATA @,9,0,7,11255:252/0r240 00 


LL 


he DATA 9,8,9,9,9,2,64,0,0,0,0,0@0r 
24145 DATA 9,9,0,0,0,15:255%63207 20722 
432521299992 

29146 DATA 192,12,9,63,0,9,0,0,0,0,0,9%0 


29147 DATA 2,64,0,9,0,8,0,0,9,0,9,0,0,8, 


ä 
me DATA 6,0,0,0,0:mr@r0rdr2s 1760048» 


20148 DATA G,9,0,0,0,0,0,0,0,0:2:54@or 


29154 DATA 9,8,9,0,0,9,9,0,0,0,0:0,0,0,0 
28131 DATA 6,0,6,7,0,172,0,0,0,240,0,0,@ 


5, 
aire DATA %,6,5,9,9,2,64,0,8,0,0,9,0,9, 


29153 DATA 8,0,8,0,0,0,295.243,252.252. 

SR d Se zur. 
3,9,12,8,0,0,0,0,42, 

Lun 8, 42,170, 

155 DATA 179,179,179,165,85,85,85,85,8 

5:85:259:259,299,6,0 MES 

29156 DATA 8,8,8,8,8,9,9,0,4,51,18,0,8,2 


20157 DATA @,8,9,9,9,0,0,0,0,0,2;54,@;0 


29158 DATA @,0,0,9,0,0,0,0,90 007070 
as Rare 8,8,0,4,12,194,128,0,48,0,240 
»2,0:2 


Cie DATA 9,6,9,9,0,2,64,9,0,0,9,2,8,8, 


29161 DATA 9,9,0,0,0,0,0:0:@r0 000023 
geiee DATA G,166,9,6,8,12,0,0,6,8,8,0,0, 


, 
— DATA 2,64,9,9,6,6,0,0,8,9,9,9,0,9, 
js DATA 9,9,0,0,9,9,6,0,0,0,48,49,8,3 
24165 DATA 3,255,255,255,252,9,9,0,9,9,2 


:64,0,0, 


28166 DATA @,9,9,9,0,0,0,0,9,0,0,0:000 
28167 DATA 4,4,0,0,0,12,16,6,8,192,3,192 


LE 
ee OATA G,9,0,0,0,2:6430 1000000 


29169 DATA 9,0,0,0,0,0:0 000702007020 
RATE 51,0,128,0,48,3,192,0,0,0,0,@ 


0,0 
br DATA 2,64,9,9,8,0,0,0,0,9,0,9,0,0, 
ue DATA 5,9,3,9,0,6,8,0,8,9,12,9,32,0 


15 
29173 DATA ons se 19,179,178, 
176,176,168,4 

29174 DATA RSR NE LEE Li LE CT 
78:5r143:197 22232235 

29175 DATA 243,255,9,0,0,3,9,8,09»195%1 


29176 DATA 9,9,9,42,179,179,170,178,168, 
842,128, 194106 
24177 DATA 9,5,85,69,65,127:9,9,9,0,0,0, 


0, 
29178 DATA 9,192,2,9,9,51,192,9,9,9,9,9, 
2,178,17@ 


29173 DATA 179,179,179,179,128,2,179,138 
,178,168,6,138,21,21,71 

29139 DATA 213,295 ,295 223 297 »249 29372 
521070014820 128,0 

SE DATA 15,192,9,9,9,9,9,9,9,9,9,00% 


29182 DATA 43,243,60,42,195,25463r295 92 
22458981 ,85 255 1 204 
Le DATA 243,63,252,9,9,9,12,9,32,0,3, 


0,6, 


2184 DATA 9,9,9,9,9,0,9,9,9,9,163,32,5, 


PSE 168,42,179,21,79,245,9,9,9,4, 
26188 0 DATA 9,3,9,11,255,255,192,8,9,99% 


2187 DATE 9,8,029,42, 17.138,17. 179,42 
20188 DATA 127.241,53,255,297,207,207,25 
5,192,6,@0192, 12,0 

29183 DATA 8,9,8,9,8,0,8,0,8,0,8,0,8,2,1 


28136 DATA Roc rirAr 168-170 106-101 
657092818595: 207 

28131 DATA 207,297 ,255,240,0,0,0,0,12,9, 
6,6,0,0% 0% 

29132 DATA 9,5,9,9,9,0,9,0,0,90000 70 
28193 DATA 6,6,6,6,6,6,8,8,0,0,0,0,8,0,0 
Shen DATA 9,9,48,12,9,9,9,9,9,0,9,9,9,0 


59195 DATA 9,9,9,9,9,0,0,3,5,0,0,9,9,9,0 
196 DATA 6,6,6,6,6,6,6,6,8,8,8,6,12,12 


29197 DATA 9,9,5,9,9,9,0,9,9,8,0,8,0,9,0 
28138 DATA 8,9,6,8,6,6,6,8,8,6,6,0,8,6,@ 
Fi. DATA 9,9,8,9,9,9,9,3,12,9,9,9,8,0, 


25209 DATA 5,9,5,8,0,9,8,0,9,9,9,0,9,00 
28281 DATA 6,6,6,6,8,0,0,0,0,6,0,0,0,8,@ 
29292 DATA 9,9,9,204,8,9,9,8,9,0,8,8,9,9 


8 
29243 DATA 3,9,9,9,9,0,9,0:0 000020 70 
0204 DATA 6,0,8,0,8,0,0,@:0r0r@r0r@r48 


23295 DATA 9,5,9,9,9,9,9,9,0,9,0,9,0,9,8 
28286 DATA 6,6,6,6,8,0,6,8,6,8,0,0,8,0,@ 
—. DATA 9,9,9,9,9,9,9,9,12,9,8,8,9,9, 


29208 DATA 9,9,9,9,9,0,0,0,0,00 01970 70 

28289 DATA 6,6,6,8,6,8,6,0,8,0,8,0,8,8,0 

28214 DATA 9,9,9,9,12,9,9,9,9,8,9 
BYT=40: LIN=79: 6R=7 : CC @ }=6: CC 1 >=: C 

2=148:0(3)=70:CC42=0 

38018 RESTORE 26800:FO0R P=1 TO 3143 

39928 RERD A:D#P,P 2=CHR$#C A) 

30830 NEXT P 

39949 RETURN 
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